diff options
Diffstat (limited to 'src/interp/spad.lisp')
-rw-r--r-- | src/interp/spad.lisp | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/interp/spad.lisp b/src/interp/spad.lisp index af99796c..d3c0bd3c 100644 --- a/src/interp/spad.lisp +++ b/src/interp/spad.lisp @@ -71,7 +71,7 @@ ($SPAD T) (OPTIONLIST nil) (|$editFile| ifile) - rd out-stream) + rd) (declare (special |$Echo| |$editFile| *comp370-apply*)) (setq |$InteractiveMode| nil) ;; only rebind |$InteractiveFrame| if compiling @@ -86,7 +86,6 @@ (setq rd (|makeReader| ifile |$OutputStream|)) (init-boot/spad-reader rd) (initialize-preparse rd) - (setq out-stream |$OutputStream|) (loop (if (|readerEoi?| rd) (return nil)) (catch |$SpadReaderTag| @@ -100,9 +99,8 @@ (|parseNewExpr| rd) (let ((parseout (|popStack1|)) ) (when parseout - (let ((|$OutputStream| out-stream)) - (|translateSpad| parseout)) - (format out-stream "~&"))) + (|translateSpad| parseout) + (format |$OutputStream| "~&"))) )))) (|ioClear!| rd))) T)) |