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 | |
parent | 3a10a7d1b568146930a1f86b45697419fec992fc (diff) | |
download | open-axiom-2b474c0f87a7e271484f898b0024a9449cc52cbe.tar.gz |
* interp/spad-parser.boot (preparse): Tidy.
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 |