diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index a67d2835..95980031 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1427,11 +1427,11 @@ foldExportedFunctionReferences defs == for fun in defs repeat fun isnt [name,lamex] => nil getFunctionReplacement name => nil - lamex isnt ["LAM",vars,body] => nil + lamex isnt ["LAMBDA",vars,body] => nil body := replaceSimpleFunctions body form := expandableDefinition?(vars,body) => registerFunctionReplacement(name,form) - second(fun) := ["LAM",vars,["DECLARE",["IGNORE",last vars]],body] + second(fun) := ["LAMBDA",vars,["DECLARE",["IGNORE",last vars]],body] if sideEffectFree? body then registerRedexForm(name,vars,body) lamex.absBody := body @@ -1540,7 +1540,7 @@ backendCompileSPADSLAM(name,args,body) == if $PrettyPrint then PRETTYPRINT u COMP370 u -- then compile the wrapper (which is the user-visible constructor). - u := [name,["LAM",args,code]] + u := [name,["LAMBDA",args,code]] if $PrettyPrint then PRETTYPRINT u COMP370 u name |