aboutsummaryrefslogtreecommitdiff
path: root/src/interp/modemap.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-05-01 04:17:50 +0000
committerdos-reis <gdr@axiomatics.org>2011-05-01 04:17:50 +0000
commitdd6933dbbfb9d8247876e818c7053218944e70a3 (patch)
tree5feee0cf900fd7ce4701b11fbeb1b9e169045fd9 /src/interp/modemap.boot
parent590b110c303021694c0ed17008d1a3f526f04451 (diff)
downloadopen-axiom-dd6933dbbfb9d8247876e818c7053218944e70a3.tar.gz
* interp/buildom.boot: Replace use of EQSUBSTLIST with applySubst.
* interp/c-util.boot: Likewise. * interp/cattable.boot: Likewise. * interp/compiler.boot: Likewise. * interp/define.boot: Likewise. * interp/format.boot: Likewise. * interp/functor.boot: Likewise. * interp/hashcode.boot: Likewise. * interp/i-output.boot: Likewise. * interp/i-syscmd.boot: Likewise. * interp/lisplib.boot: Likewise. * interp/modemap.boot: Likewise. * interp/rulesets.boot: Likewise. * interp/slam.boot: Likewise. * interp/sys-macros.lisp (APPLYR, TAILFN, TAIL, rplac): Remove as unused.
Diffstat (limited to 'src/interp/modemap.boot')
-rw-r--r--src/interp/modemap.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot
index 89fe9f48..ce3b64cc 100644
--- a/src/interp/modemap.boot
+++ b/src/interp/modemap.boot
@@ -340,7 +340,7 @@ substNames(domainName,viewName,functorForm,opalist) ==
[sel, viewName,if domainName = "$" then pos else
modemapform.mmTarget]]
for [:modemapform,[sel,"$",pos]] in
- EQSUBSTLIST(KDR functorForm,$FormalMapVariableList, opalist)]
+ applySubst(pairList($FormalMapVariableList,KDR functorForm),opalist)]
addConstructorModemaps(name,form is [functorName,:.],e) ==
$InteractiveMode: local:= nil