aboutsummaryrefslogtreecommitdiff
path: root/src/interp/spad-parser.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2012-08-20 10:46:46 +0000
committerdos-reis <gdr@axiomatics.org>2012-08-20 10:46:46 +0000
commitfc5f21dee871bb57e18ecd0818333a11eba76ed9 (patch)
treea4f51416dc111c71e31e8fce4a8df0722984b428 /src/interp/spad-parser.boot
parent49b79b4c722ebedc70c2a34b517649208e962447 (diff)
downloadopen-axiom-fc5f21dee871bb57e18ecd0818333a11eba76ed9.tar.gz
* interp/spad.lisp (SPAD): Remove obfuscated binding of OUT-STREAM.
* interp/spad-parser.boot (paarseEcho): Use $OutputStream in lieu of OUT-STREAM. * interp/server.boot (serverReadLine): Do not bind IN-STEEAM and *EOF*. Tidy. * interp/lexing.boot (IN-TREAM): Remove definition. (OUT-STREAM): Likewise. * interp/int-top.boot (runspad): Do not bind IN-STREAM and *EOF*. (SpadInterpretStream): Remove $shoeReadLineFunction binding. * interp/debug.lisp: Replace IN-STREAM with $InputStream and OUT-STREAM with $OutputStream.
Diffstat (limited to 'src/interp/spad-parser.boot')
-rw-r--r--src/interp/spad-parser.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/spad-parser.boot b/src/interp/spad-parser.boot
index 92fe77f7..7ce0fb01 100644
--- a/src/interp/spad-parser.boot
+++ b/src/interp/spad-parser.boot
@@ -161,7 +161,7 @@ preparseReadLine1 rs ==
preparseEcho lines ==
if $Echo then
for x in reverse lines repeat
- formatToStream(OUT_-STREAM,'"~&;~A~%",x)
+ formatToStream($OutputStream,'"~&;~A~%",x)
++ The line to be worked on is the first in `lines.
++ It's indentation is the first in `locs'.