diff options
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) |