diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/preparse.lisp | 6 | ||||
| -rw-r--r-- | src/interp/spad-parser.boot | 11 |
2 files changed, 9 insertions, 8 deletions
diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp index 5909ff5b..90083fcb 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -170,9 +170,3 @@ (|parsePiles| (|reverse!| LOCS) (|reverse!| LINES))))) (GO READLOOP))) - -(defun PARSEPRINT (L) - (if L - (progn (format t "~&~% *** PREPARSE ***~%~%") - (dolist (X L) (format t "~5d. ~a~%" (car x) (cdr x))) - (format t "~%")))) 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 |