aboutsummaryrefslogtreecommitdiff
path: root/src/boot/parser.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/parser.boot')
-rw-r--r--src/boot/parser.boot6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/boot/parser.boot b/src/boot/parser.boot
index 03c2f639..cfa034d8 100644
--- a/src/boot/parser.boot
+++ b/src/boot/parser.boot
@@ -240,13 +240,13 @@ bpBacksetElse()==
bpEqKey "ELSE"
bpEqPeek s ==
- $stok is ["KEY",:.] and EQ(s,$ttok)
+ $stok is ["KEY",:.] and sameObject?(s,$ttok)
bpEqKey s ==
- $stok is ["KEY",:.] and EQ(s,$ttok) and bpNext()
+ $stok is ["KEY",:.] and sameObject?(s,$ttok) and bpNext()
bpEqKeyNextTok s ==
- $stok is ["KEY",:.] and EQ(s,$ttok) and bpNextToken()
+ $stok is ["KEY",:.] and sameObject?(s,$ttok) and bpNextToken()
bpPileTrap() == bpMissing "BACKTAB"
bpBrackTrap(x) == bpMissingMate("]",x)