From 3580316a6efb4e026e08543bd9eed9df16316bbe Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 11 May 2012 05:05:57 +0000
Subject: 	* interp/preparse.lisp (preparseReadLine1): Move to
 spad-parser.boot.

---
 src/interp/spad-parser.boot | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'src/interp/spad-parser.boot')

diff --git a/src/interp/spad-parser.boot b/src/interp/spad-parser.boot
index e9e6b6b5..3076f91c 100644
--- a/src/interp/spad-parser.boot
+++ b/src/interp/spad-parser.boot
@@ -139,6 +139,22 @@ preparseReadLine x ==
     z
   z
 
+preparseReadLine1 x ==
+  if $LineList then
+    [line,:$LineList] := $LineList
+  else
+    line := expandLeadingTabs readLine IN_-STREAM
+  $preparseLastLine := line
+  not string? line => [$INDEX]
+  $INDEX := $INDEX + 1
+  line := trimTrailingBlank line
+  $EchoLineStack := [copyString line,:$EchoLineStack]
+  n := $INDEX
+  if #line > 0 and line.maxIndex(line) = char "__" then
+    line := strconc(subString(line,0,maxIndex line),rest preparseReadLine1 x)
+    $preparseLastLine := line
+  [n,:line]
+
 preparseEcho lines ==
   if $Echo then
     for x in reverse lines repeat
-- 
cgit v1.2.3