diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-06-05 07:35:25 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-06-05 07:35:25 +0000 |
| commit | 6f764e775b40fa70adb6268d936c04d9acbd474c (patch) | |
| tree | 8aad22818a1ebec6c22b2cb0a543c4742ea4d00c /src/interp/preparse.lisp | |
| parent | 2b474c0f87a7e271484f898b0024a9449cc52cbe (diff) | |
| download | open-axiom-6f764e775b40fa70adb6268d936c04d9acbd474c.tar.gz | |
* interp/io.boot (readerDeferLine): New.
* interp/preparse.lisp (preparse1): Use it.
* interp/spad-parser.boot (preparse): Likewise.
Diffstat (limited to 'src/interp/preparse.lisp')
| -rw-r--r-- | src/interp/preparse.lisp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp index 8af7c8b3..6cd27096 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -128,10 +128,8 @@ (SETQ NCOMBLOCK (CONS N (CONS A (IFCDR NCOMBLOCK)))) (SETQ A "")) ('T - (SETF (|readerLines| rd) - (CONS (STRCONC (|makeString| N #\Space) - (SUBSTRING A N ())) - (|readerLines| rd))) + (|readerDeferLine| rd (STRCONC (|makeString| N #\Space) + (SUBSTRING A N NIL))) (SETQ $INDEX (1- $INDEX)) (SETQ A (SUBSEQ A 0 N)))) (GO NOCOMS)) |