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 e390894b..3864fc13 100644 --- a/src/boot/parser.boot +++ b/src/boot/parser.boot @@ -208,7 +208,7 @@ bpListof(ps,f,str1,g)== parserTrees(ps) := nil while bpEqKey(ps,str1) and bpRequire(ps,f) repeat nil parserTrees(ps) := [reverse! parserTrees ps,:a] - bpPush(ps,FUNCALL(g, [bpPop3 ps,bpPop2 ps,:bpPop1 ps])) + bpPush(ps,apply(g,[[bpPop3 ps,bpPop2 ps,:bpPop1 ps]])) true false @@ -221,7 +221,7 @@ bpListofFun(ps,f,h,g)== parserTrees(ps) := nil while apply(h,[ps]) and bpRequire(ps,f) repeat nil parserTrees(ps) := [reverse! parserTrees ps,:a] - bpPush(ps,FUNCALL(g, [bpPop3 ps,bpPop2 ps,:bpPop1 ps])) + bpPush(ps,apply(g,[[bpPop3 ps,bpPop2 ps,:bpPop1 ps]])) true false @@ -255,7 +255,7 @@ bpAnyNo(ps,s) == -- AndOr(k,p,f)= k p bpAndOr(ps,keyword,p,f)== bpEqKey(ps,keyword) and bpRequire(ps,p) - and bpPush(ps,FUNCALL(f,parserLoadUnit ps,bpPop1 ps)) + and bpPush(ps,apply(f,[parserLoadUnit ps,bpPop1 ps])) bpConditional(ps,f) == bpEqKey(ps,"IF") and bpRequire(ps,function bpWhere) and (bpEqKey(ps,"BACKSET") or true) => |