From 2b474c0f87a7e271484f898b0024a9449cc52cbe Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 4 Jun 2012 21:31:18 +0000 Subject: * interp/spad-parser.boot (preparse): Tidy. --- src/ChangeLog | 4 ++++ 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,3 +1,7 @@ +2012-06-04 Gabriel Dos Reis + + * interp/spad-parser.boot (preparse): Tidy. + 2012-06-04 Gabriel Dos Reis * interp/spad-parser.boot (findCommentBlock): Lose last 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 -- cgit v1.2.3