diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-28 04:34:35 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-28 04:34:35 +0000 |
| commit | e609586105f5a9b2b314a9dbeab0e7ec47d66b85 (patch) | |
| tree | d7d301cc8060f30154dff07b334cbc67e636432d /src/interp/unlisp.lisp | |
| parent | bd0ce3e3c5dfaad8adcb5034d9637267ed6bc857 (diff) | |
| download | open-axiom-e609586105f5a9b2b314a9dbeab0e7ec47d66b85.tar.gz | |
* interp/int-top.boot (intloopReadConsole): Use $InputStream.
* interp/bootlex.lisp (init-boot/spad-reader): Use $OutputStream.
* interp/comp.lisp (|compQuietly|): Likewise.
(|compileFileQuietly|): Likewise.
(|compileQuietly|): Likewise.
* interp/unlisp.lisp (|Prompt|): Likewise.
* interp/server.boot (serverReadLine): Indent while body.
Diffstat (limited to 'src/interp/unlisp.lisp')
| -rw-r--r-- | src/interp/unlisp.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/unlisp.lisp b/src/interp/unlisp.lisp index 640d99bc..38804adc 100644 --- a/src/interp/unlisp.lisp +++ b/src/interp/unlisp.lisp @@ -91,8 +91,8 @@ (defun |Prompt| (line &optional (readfn nil)) - (format *query-io* "~a" line) - (when readfn (apply readfn (list *query-io*))) ) + (format |$OutputStream| "~a" line) + (when readfn (apply readfn (list |$InputStream|))) ) (defun |PrettyPrint| (expr &optional (outstream |$OutputStream|)) (write expr :stream outstream :level nil :length nil :pretty 't :escape 't) |