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/define.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/define.boot')
| -rw-r--r-- | src/interp/define.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 1d8ac2e9..57095ff6 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1146,7 +1146,7 @@ compDefineCategory2(form,signature,body,m,e,$formalArgList) == body:= ["%bind",[[g:= gensym(),body]], ['%seq,['%store,['%tref,g,0],mkConstructor $form],g]] - fun := compile(db,[op',["LAM",sargl,body]],signature') + fun := compile(db,[op',["LAMBDA",sargl,body]],signature') -- 5. give operator a 'modemap property pairlis := pairList(form.args,$FormalMapVariableList) @@ -1938,7 +1938,7 @@ compDefineCapsuleFunction(db,df is ['DEF,form,signature,body], body' := replaceExitEtc(T.expr,catchTag,"TAGGEDreturn",$returnMode) body' := addArgumentConditions(body',$op) finalBody := ['%scope,catchTag,body'] - compile(db,[op',["LAM",[:argl,'_$],finalBody]],signature) + compile(db,[op',["LAMBDA",[:argl,'_$],finalBody]],signature) $functorStats:= addStats($functorStats,$functionStats) --7. give operator a 'value property |