diff options
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) |