diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-06-04 21:31:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-06-04 21:31:18 +0000 |
| commit | 2b474c0f87a7e271484f898b0024a9449cc52cbe (patch) | |
| tree | 1349b20da65302134030ff07859440c6e05f00db /src/interp | |
| parent | 3a10a7d1b568146930a1f86b45697419fec992fc (diff) | |
| download | open-axiom-2b474c0f87a7e271484f898b0024a9449cc52cbe.tar.gz | |
* interp/spad-parser.boot (preparse): Tidy.
Diffstat (limited to 'src/interp')
| -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 |