diff options
Diffstat (limited to 'src/interp/br-saturn.boot')
| -rw-r--r-- | src/interp/br-saturn.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index 6f55c992..4d0987ce 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -1568,12 +1568,12 @@ mkButtonBox n == strconc('"\buttonbox{", STRINGIMAGE n, '"}") -- PRINC('"", comstream) -- finishLine(comstream) -- while (line := readLine instream) ~= %nothing repeat --- comP := FILE_-POSITION comstream +-- comP := getFileCursor comstream -- if key ~= line.0 then -- if outstream then SHUT outstream -- key := line . 0 -- outstream := MAKE_-OUTSTREAM strconc(STRINGIMAGE key,'"libdb.text") --- outP := FILE_-POSITION outstream +-- outP := getFileCursor outstream -- [prefix,:comments] := dbSplit(line,6,1) -- PRINC(prefix,outstream) -- PRINC($tick ,outstream) |