From 4dcf3f97d30a2b892716923ed4e916805ec87436 Mon Sep 17 00:00:00 2001 From: Gabriel Dos Reis Date: Thu, 24 Dec 2015 18:05:41 -0800 Subject: Replace FUNCALL with apply. --- src/boot/strap/ast.clisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/boot/strap') diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index 820f308e..5c3e7db8 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -851,7 +851,8 @@ (SETQ |argl| (COND ((|bfTupleP| |args|) (CDR |args|)) (T (LIST |args|)))) (COND - ((NULL |argl|) (SETQ |opassoc| (LIST (CONS |op| |body|))) + ((NULL |argl|) + (SETQ |opassoc| (LIST (CONS |op| (|translateForm| |body|)))) (LIST |opassoc| NIL NIL)) (T (SETQ |op1| @@ -859,7 +860,8 @@ (CONCAT (SYMBOL-NAME (|enclosingFunction| |tu|)) "," (SYMBOL-NAME |op|)))) (SETQ |opassoc| (LIST (CONS |op| |op1|))) - (SETQ |defstack| (LIST (LIST |op1| |args| |body|))) + (SETQ |defstack| + (LIST (LIST |op1| |args| (|translateForm| |body|)))) (LIST |opassoc| |defstack| NIL)))))) (|%Pile| (LET ((|defs| (CADR |x|))) -- cgit v1.2.3