diff options
Diffstat (limited to 'src/boot/parser.boot')
| -rw-r--r-- | src/boot/parser.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/boot/parser.boot b/src/boot/parser.boot index 3aee7371..a7706e9a 100644 --- a/src/boot/parser.boot +++ b/src/boot/parser.boot @@ -549,15 +549,15 @@ bpExceptions()== bpSexpKey()== - $stok is ["KEY",:.] and not bpExceptions()=> + $stok is ["KEY",:.] and not bpExceptions() => a := $ttok has SHOEINF - a = nil => bpPush $ttok and bpNext() + a = nil => bpPush keywordId $ttok and bpNext() bpPush a and bpNext() false bpAnyId()== bpEqKey "MINUS" and ($stok is ["INTEGER",:.] or bpTrap()) and - bpPush MINUS $ttok and bpNext() or + bpPush(-$ttok) and bpNext() or bpSexpKey() or shoeTokType $stok in '(ID INTEGER STRING FLOAT) and bpPush $ttok and bpNext() |