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 2cd2ca86..c5810f74 100644
--- a/src/boot/parser.boot
+++ b/src/boot/parser.boot
@@ -188,7 +188,7 @@ bpBracket(ps,f) ==
a := parserCurrentToken ps
bpEqKey(ps,"OBRACK") =>
apply(f,[ps]) and (bpEqKey(ps,"CBRACK") or bpBrackTrap(ps,a)) =>
- bpPush(ps,bfBracket bpPop1 ps)
+ bpPush(ps,bpPop1 ps)
bpEqKey(ps,"CBRACK") => bpPush(ps,[])
bpBrackTrap(ps,a)
false
@@ -197,7 +197,7 @@ bpPileBracketed(ps,f) ==
bpEqKey(ps,"SETTAB") =>
bpEqKey(ps,"BACKTAB") => true
apply(f,[ps]) and (bpEqKey(ps,"BACKTAB") or bpPileTrap ps) =>
- bpPush(ps,bfPile bpPop1 ps)
+ bpPush(ps,bpPop1 ps)
false
false
@@ -871,7 +871,7 @@ bpDo ps ==
bpRequire(ps,function bpDo)
bpPush(ps,bfAtScope(bpPop2 ps,bpPop1 ps))
bpEqKey(ps,"DO") and bpRequire(ps,function bpAssign) and
- bpPush(ps,bfDo bpPop1 ps)
+ bpPush(ps,bpPop1 ps)
++ Return:
++ RETURN Assign