aboutsummaryrefslogtreecommitdiff
path: root/src/interp/io.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/io.boot')
-rw-r--r--src/interp/io.boot4
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]