aboutsummaryrefslogtreecommitdiff
path: root/src/interp/preparse.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/preparse.lisp')
-rw-r--r--src/interp/preparse.lisp6
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))