diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-03 22:21:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-03 22:21:52 +0000 |
| commit | a640b1ffcc5c96698065276dfc6c937406e776fd (patch) | |
| tree | 7eb9723a4e028049093d1badd21b3815186de49c /src/interp/c-util.boot | |
| parent | 3ac22c456c1d00c35957e7dad2bf10e7294ac6d5 (diff) | |
| download | open-axiom-a640b1ffcc5c96698065276dfc6c937406e776fd.tar.gz | |
* interp/c-util.boot: Use LAMBDA type in lieu of LAM.
* interp/clam.boot: Likewise.
* interp/define.boot: Likewise.
* interp/lisp-backend.boot (COMPILE1): Tidy.
* interp/slam.boot: Likewise.
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 |