diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-11 20:39:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-11 20:39:20 +0000 |
| commit | 90e40ff963ffdca1272e393e2458d04040976096 (patch) | |
| tree | 3e7614a99dbee9d384e082957ae75a44a1ce109f /src/interp/preparse.lisp | |
| parent | 0efd5f26be8d38a5eda78f9aa264c06015ee9e83 (diff) | |
| download | open-axiom-90e40ff963ffdca1272e393e2458d04040976096.tar.gz | |
* interp/preparse.lisp (PARSEPRINT): Move to spad-parser.boot.
Rename as parsePrint.
Diffstat (limited to 'src/interp/preparse.lisp')
| -rw-r--r-- | src/interp/preparse.lisp | 6 |
1 files changed, 0 insertions, 6 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 "~%")))) |