diff options
author | dos-reis <gdr@axiomatics.org> | 2012-08-20 10:46:46 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-08-20 10:46:46 +0000 |
commit | fc5f21dee871bb57e18ecd0818333a11eba76ed9 (patch) | |
tree | a4f51416dc111c71e31e8fce4a8df0722984b428 /src/interp/lexing.boot | |
parent | 49b79b4c722ebedc70c2a34b517649208e962447 (diff) | |
download | open-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/lexing.boot')
-rw-r--r-- | src/interp/lexing.boot | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/interp/lexing.boot b/src/interp/lexing.boot index d5917620..8652b96b 100644 --- a/src/interp/lexing.boot +++ b/src/interp/lexing.boot @@ -56,13 +56,7 @@ nextLine rd == nextLinesClear!() == $lineStack := nil -++ Current input stream. -IN_-STREAM := 'T - -++ Current output stream -OUT_-STREAM := 'T - -++ Advances IN-STREAM, invoking Next Line if necessary +++ Advances `rd', invoking nextLine if necessary advanceChar! rd == repeat not lineAtEnd? readerSourceLine rd => @@ -374,7 +368,7 @@ ungetTokens rd == coreError '"How many tokens do you think you have?" -++ Returns length of X if X matches initial segment of IN-STREAM. +++ Returns length of X if X matches initial segment of `rd'. ++ Otherwise, return nil. matchString(rd,x) == ungetTokens rd |