diff options
Diffstat (limited to 'src/boot/parser.boot.pamphlet')
-rw-r--r-- | src/boot/parser.boot.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/parser.boot.pamphlet b/src/boot/parser.boot.pamphlet index eb68fa1e..47627d4a 100644 --- a/src/boot/parser.boot.pamphlet +++ b/src/boot/parser.boot.pamphlet @@ -703,7 +703,7 @@ bpBracketConstruct(f)== bpBracket f and bpPush bfConstruct bpPop1 () bpCompare()== - bpIs() and (bpInfKey '(SHOEEQ NE LT LE GT GE IN) + bpIs() and (bpInfKey '(SHOEEQ SHOENE LT LE GT GE IN) and (bpIs() or bpTrap()) and bpPush bfInfApplication(bpPop2(),bpPop2(),bpPop1()) or true) @@ -1912,7 +1912,7 @@ bpCaseItem()== (PROG () (RETURN (AND (|bpIs|) - (OR (AND (|bpInfKey| '(SHOEEQ NE LT LE GT GE IN)) + (OR (AND (|bpInfKey| '(SHOEEQ SHOENE LT LE GT GE IN)) (OR (|bpIs|) (|bpTrap|)) (|bpPush| (|bfInfApplication| (|bpPop2|) (|bpPop2|) |