diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-06-06 09:40:41 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-06-06 09:40:41 +0000 |
| commit | a4b48cade8c5a9ae034cfd1cfcd21739bcab7ce5 (patch) | |
| tree | cbcff7bf3eb1aa43658cc3d0fd16024afd81b965 /src/interp/preparse.lisp | |
| parent | 6f764e775b40fa70adb6268d936c04d9acbd474c (diff) | |
| download | open-axiom-a4b48cade8c5a9ae034cfd1cfcd21739bcab7ce5.tar.gz | |
* interp/io.boot (readePendingLines): Rename from readerLines.
Adjust callers.
Diffstat (limited to 'src/interp/preparse.lisp')
| -rw-r--r-- | src/interp/preparse.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp index 6cd27096..71786b00 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -84,7 +84,7 @@ (LINES ()) (LOCS ()) (NUMS ()) functor ) READLOOP (DCQ (NUM . A) (|preparseReadLine| rd)) (cond ((|atEndOfUnit?| A) - (|preparseEcho| (|readerLines| rd)) + (|preparseEcho| (|readerPendingLines| rd)) (COND ((NULL LINES) (RETURN NIL)) (NCOMBLOCK (|findCommentBlock| NIL NUMS LOCS NCOMBLOCK))) @@ -92,7 +92,7 @@ (|parsePiles| (|reverse!| LOCS) (|reverse!| LINES)))))) (cond ((and (NULL LINES) (> (LENGTH A) 0) (EQ (CHAR A 0) #\) )) ; this is a command line, don't parse it - (|preparseEcho| (|readerLines| rd)) + (|preparseEcho| (|readerPendingLines| rd)) (setq |$preparseLastLine| nil) ;don't reread this line (SETQ LINE a) (CATCH |$SpadReaderTag| (|doSystemCommand| (subseq LINE 1))) @@ -167,7 +167,7 @@ (|findCommentBlock| NUM NUMS LOCS NCOMBLOCK) (setq NCOMBLOCK ()))) (PUSH SLOC LOCS) - REREAD (|preparseEcho| (|readerLines| rd)) + REREAD (|preparseEcho| (|readerPendingLines| rd)) (PUSH A LINES) (PUSH NUM NUMS) (setq PARENLEV (+ PARENLEV PCOUNT)) |