diff options
-rw-r--r-- | src/ChangeLog | 4 | ||||
-rw-r--r-- | src/interp/spad-parser.boot | 14 |
2 files changed, 18 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index c0621c85..db2f6124 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,9 @@ 2012-06-09 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/spad-parser.boot: Fix thinkos from previous commit. + +2012-06-09 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/preparse.lisp: Remove. * interp/spad-parser.boot: Do not include. Import lexing instead. * interp/Makefile.in: Adjust. 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 |