From 2b474c0f87a7e271484f898b0024a9449cc52cbe Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 4 Jun 2012 21:31:18 +0000
Subject: 	* interp/spad-parser.boot (preparse): Tidy.

---
 src/interp/spad-parser.boot | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'src/interp')

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