diff options
Diffstat (limited to 'src/interp/io.boot')
-rw-r--r-- | src/interp/io.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/io.boot b/src/interp/io.boot index a7fe1849..1d039259 100644 --- a/src/interp/io.boot +++ b/src/interp/io.boot @@ -104,9 +104,10 @@ findString(s1,s2,k == 0) == --% Reader --% structure %Reader == - Record(ins: %InputStream, lines: %List %Line) with + Record(ins: %InputStream, lines: %List %Line,sline: %Line) with readerInput == (.ins) readerLines == (.lines) + readerSourceLine == (.sline) -- current input line makeReader ist == - mk%Reader(ist,nil) + mk%Reader(ist,nil,makeLine()) |