diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/spad-parser.boot | 7 |
2 files changed, 6 insertions, 5 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 8d1aa179..dd4e73c3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2012-06-04 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/spad-parser.boot (preparse): Tidy. + +2012-06-04 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/spad-parser.boot (findCommentBlock): Lose last parameter. Adjust callers. 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 |