diff options
Diffstat (limited to 'src/interp/spad-parser.boot')
| -rw-r--r-- | src/interp/spad-parser.boot | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/interp/spad-parser.boot b/src/interp/spad-parser.boot index b33e5ef5..33e30965 100644 --- a/src/interp/spad-parser.boot +++ b/src/interp/spad-parser.boot @@ -198,11 +198,8 @@ parsePrint l == preparse rd == $COMBLOCKLIST := nil $SKIPME := false - readerLines(rd) := - $preparseLastLine => - $preparseLastLine is [.,:.] => $preparseLastLine - [$preparseLastLine] - nil + if $preparseLastLine ~= nil then + readerLines(rd) := [$preparseLastLine,:readerLines rd] $INDEX := $INDEX - #readerLines rd u := preparse1 rd $SKIPME => preparse rd |