From 6a5c8a141d2d0a980d59531d090811c16afa3704 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 10 Jun 2012 02:37:59 +0000 Subject: * interp/spad-parser.boot: Fix thinkos from previous commit. --- src/ChangeLog | 4 ++++ src/interp/spad-parser.boot | 14 ++++++++++++++ 2 files changed, 18 insertions(+) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index c0621c85..db2f6124 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2012-06-09 Gabriel Dos Reis + + * interp/spad-parser.boot: Fix thinkos from previous commit. + 2012-06-09 Gabriel Dos Reis * interp/preparse.lisp: Remove. 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