From 6a5c8a141d2d0a980d59531d090811c16afa3704 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 10 Jun 2012 02:37:59 +0000
Subject: 	* interp/spad-parser.boot: Fix thinkos from previous commit.

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

(limited to 'src/interp')

diff --git a/src/interp/spad-parser.boot b/src/interp/spad-parser.boot
index 0363ff97..f4f50db6 100644
--- a/src/interp/spad-parser.boot
+++ b/src/interp/spad-parser.boot
@@ -51,6 +51,20 @@ module spad_-parser where
 
 --%
 
+$SKIPME := false
+TOK := nil
+DEFINITION__NAME := nil
+$preparseLastLine := nil
+$preparseReportIfTrue := false
+
+--%
+
+INITIALIZE_-PREPARSE rd ==
+  readerLineNumber(rd) := 0
+  $preparseLastLine := readLine readerInput rd
+
+--%
+
 addClose(line,ch) ==
   line.(maxIndex line) = char ";" =>
     ch = char ";" => line
-- 
cgit v1.2.3