diff options
author | dos-reis <gdr@axiomatics.org> | 2009-10-31 23:35:17 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-10-31 23:35:17 +0000 |
commit | 43e4aa26464a27fdd5d80272f72839653a0f6cf9 (patch) | |
tree | eaf2ecc325c8a72b3c3a9c0ed8d936d1f11a9d5f /src/interp/compiler.boot | |
parent | 402e10d38c81689647ae1004c80acb9841798e9b (diff) | |
download | open-axiom-43e4aa26464a27fdd5d80272f72839653a0f6cf9.tar.gz |
* interp/br-op2.boot (pairlis): Remove.
(modemap2Sig): Use pairList.
* interp/compiler.boot (applyMapping): Likewise.
* interp/database.boot (augLisplibModemapsFromCategory): Likewise.
(getOplistForConstructorForm): Likewise.
* interp/define.boot (compDefineCategory2): Likewise.
(compDefineFunctor1): Likewise.
(mkOpVec): Likewise.
* interp/lisplib.boot (finalizeLisplib): Likewise.
* interp/nruncomp.boot (mkSlot1sublis): Likewise.
* interp/wi1.boot (compDefineCategory2): Likewise.
* interp/wi2.boot (compDefineFunctor1): Likewise.
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 808e57c3..5022d5dc 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -222,7 +222,7 @@ applyMapping([op,:argl],m,e,ml) == #argl~=#ml-1 => nil isCategoryForm(first ml,e) => --is op a functor? - pairlis:= [[v,:a] for a in argl for v in $FormalMapVariableList] + pairlis:= pairList($FormalMapVariableList,argl) ml' := SUBLIS(pairlis, ml) argl':= [T.expr for x in argl for m' in rest ml'] where @@ -240,7 +240,7 @@ applyMapping([op,:argl],m,e,ml) == -- Compiler synthetized operators are inline. u ~= nil and u.expr is ["XLAM",:.] => ["call",u.expr,:argl'] ['call,['applyFun,op],:argl'] - pairlis:= [[v,:a] for a in argl' for v in $FormalMapVariableList] + pairlis := pairList($FormalMapVariableList,argl') convert([form,SUBLIS(pairlis,first ml),e],m) -- This version tends to give problems with #1 and categories |