diff options
author | dos-reis <gdr@axiomatics.org> | 2012-06-05 07:35:25 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-06-05 07:35:25 +0000 |
commit | 6f764e775b40fa70adb6268d936c04d9acbd474c (patch) | |
tree | 8aad22818a1ebec6c22b2cb0a543c4742ea4d00c /src/interp/io.boot | |
parent | 2b474c0f87a7e271484f898b0024a9449cc52cbe (diff) | |
download | open-axiom-6f764e775b40fa70adb6268d936c04d9acbd474c.tar.gz |
* interp/io.boot (readerDeferLine): New.
* interp/preparse.lisp (preparse1): Use it.
* interp/spad-parser.boot (preparse): Likewise.
Diffstat (limited to 'src/interp/io.boot')
-rw-r--r-- | src/interp/io.boot | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/io.boot b/src/interp/io.boot index 1d039259..7c85719f 100644 --- a/src/interp/io.boot +++ b/src/interp/io.boot @@ -111,3 +111,7 @@ structure %Reader == makeReader ist == mk%Reader(ist,nil,makeLine()) + +++ Add line `l' to the stack of pending lines. +readerDeferLine(rd,l) == + readerLines(rd) := [l,:readerLines rd] |