diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-06 15:13:16 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-06 15:13:16 +0000 |
| commit | 03c3da037eca3d7d557784db3d3a9872ba2a2cb5 (patch) | |
| tree | b7ebac6bf164dc2b15dfe8430c66593524e51fb0 /src/interp/spad-parser.boot | |
| parent | 1dbbbe925423f63ad24be607081ced422eed5181 (diff) | |
| download | open-axiom-03c3da037eca3d7d557784db3d3a9872ba2a2cb5.tar.gz | |
misc cleanup
Diffstat (limited to 'src/interp/spad-parser.boot')
| -rw-r--r-- | src/interp/spad-parser.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/spad-parser.boot b/src/interp/spad-parser.boot index edf0cac0..50d05c5c 100644 --- a/src/interp/spad-parser.boot +++ b/src/interp/spad-parser.boot @@ -49,14 +49,14 @@ namespace BOOT --% addClose(line,ch) == - FETCHCHAR(line,maxIndex line) = char ";" => + line.(maxIndex line) = char ";" => ch = char ";" => line line.(maxIndex line) := ch SUFFIX(char ";",line) SUFFIX(ch,line) escaped?(s,n) == - n > 0 and FETCHCHAR(s,n-1) = char "__" + n > 0 and s.(n-1) = char "__" infixToken? s == STRING2ID_-N(s,1) in '(_then _else) |