aboutsummaryrefslogtreecommitdiff
path: root/src/boot/ast.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/ast.boot')
-rw-r--r--src/boot/ast.boot6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot
index c741a315..986338f3 100644
--- a/src/boot/ast.boot
+++ b/src/boot/ast.boot
@@ -1474,12 +1474,12 @@ genTypeAlias(head,body) ==
translateForm x ==
x isnt [.,:.] => x
x.op is 'QUOTE => x
- x.op is 'APPLY and x.args is [fun,:args] =>
+ x.op is 'apply and x.args is [fun,:args] =>
lastItem args = 'NIL =>
- ['FUNCALL,translateForm fun,:listMap!(butLast! args,function translateForm)]
+ ['FUNCALL,:listMap!(butLast! x.args,function translateForm)]
args is [['LIST,:ys]] =>
['FUNCALL,translateForm fun,:listMap!(ys, function translateForm)]
- listMap!(x,function translateForm)
+ ['APPLY,:listMap!(x.args,function translateForm)]
x.op is 'LET =>
bindings := [[var, translateForm init] for [var,init] in first x.args]
[x.op,bindings,translateForm second x.args]