diff options
Diffstat (limited to 'src/interp/spad-parser.boot')
| -rw-r--r-- | src/interp/spad-parser.boot | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/interp/spad-parser.boot b/src/interp/spad-parser.boot index 3ff71b04..54c6fa82 100644 --- a/src/interp/spad-parser.boot +++ b/src/interp/spad-parser.boot @@ -200,6 +200,14 @@ parsePiles(locs,lines) == addParensAndSemisToLine(x,y) lines +parsePrint l == + $preparseReportIfTrue and l ~= nil => + formatToStdout '"~&~% *** PREPARSE ***~%~%" + for x in l repeat + formatToStdout('"~5d. ~a~%",first x,rest x) + formatToStdout '"~%" + nil + preparse st == $COMBLOCKLIST := nil $SKIPME := false @@ -211,8 +219,7 @@ preparse st == $INDEX := $INDEX - #stack u := preparse1 stack $SKIPME => preparse st - if $preparseReportIfTrue then - PARSEPRINT u + parsePrint u $headerDocumentation := nil $docList := nil $maxSignatureLineNumber := 0 |