diff options
author | dos-reis <gdr@axiomatics.org> | 2012-06-10 02:37:59 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-06-10 02:37:59 +0000 |
commit | 6a5c8a141d2d0a980d59531d090811c16afa3704 (patch) | |
tree | 1f19bf32834636beb56dafa2df93b506d33d772c /src/interp | |
parent | a016645fb84079852fb1464d770252af687d57f5 (diff) | |
download | open-axiom-6a5c8a141d2d0a980d59531d090811c16afa3704.tar.gz |
* interp/spad-parser.boot: Fix thinkos from previous commit.
Diffstat (limited to 'src/interp')
-rw-r--r-- | src/interp/spad-parser.boot | 14 |
1 files changed, 14 insertions, 0 deletions
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 |