diff options
Diffstat (limited to 'src/interp/lisp-backend.boot')
-rw-r--r-- | src/interp/lisp-backend.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index 2f4b661f..6fb119e8 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -805,16 +805,16 @@ COMPILE1 fun == body := body' args := removeFluids args newArgs := - type is 'LAMBDA and simpleParameterList? args => args + type in '(%lambda LAMBDA) and simpleParameterList? args => args args' := gensym() body := [['DSETQ,args,args'],:body] - type is 'LAMBDA => ["&REST",args',"&AUX",:$Vars] + type in '(%lambda LAMBDA) => ["&REST",args',"&AUX",:$Vars] type is 'MLAMBDA => ["&WHOLE",args',"&REST",gensym(),"&AUX",:$Vars] systemError ['"bad function type: ",:bright symbolName type] if $Decls ~= nil then body := [['DECLARE,['SPECIAL,:$Decls]],:body] body := - type is 'LAMBDA => ['DEFUN,name,newArgs,:body] + type in '(%lambda LAMBDA) => ['DEFUN,name,newArgs,:body] ['DEFMACRO,name,newArgs,:body] compileLispDefinition(name,body) body |