diff options
Diffstat (limited to 'src/interp/spad-parser.boot')
| -rw-r--r-- | src/interp/spad-parser.boot | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/interp/spad-parser.boot b/src/interp/spad-parser.boot index d0ace700..69c8665e 100644 --- a/src/interp/spad-parser.boot +++ b/src/interp/spad-parser.boot @@ -124,6 +124,12 @@ preparseReadLine x == z z +preparseEcho lines == + if $Echo then + for x in reverse lines repeat + formatToStream(OUT_-STREAM,'"~&;~A~%",x) + $EchoLineStack := nil + --% macro compulsorySyntax s == s or SPAD__SYNTAX__ERROR() |