diff options
Diffstat (limited to 'src/interp/lexing.boot')
-rw-r--r-- | src/interp/lexing.boot | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/interp/lexing.boot b/src/interp/lexing.boot index 3143b23c..aeaccf9d 100644 --- a/src/interp/lexing.boot +++ b/src/interp/lexing.boot @@ -121,9 +121,15 @@ nextLine st == SETQ(LINE,l) $currentLine := l +nextLinesClear!() == + $lineStack := nil + ++ Current input stream. IN_-STREAM := 'T +++ Current output stream +OUT_-STREAM := 'T + ++ Advances IN-STREAM, invoking Next Line if necessary advanceChar!() == repeat @@ -603,3 +609,13 @@ popStack4() == nthStack n == reductionValue stackStore($reduceStack).(n - 1) + + +--% + +ioClear!() == + lineClear! $spadLine + tokenStackClear!() + reduceStackClear() + $SPAD => nextLinesClear!() + nil |