diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-01 04:17:50 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-01 04:17:50 +0000 |
commit | dd6933dbbfb9d8247876e818c7053218944e70a3 (patch) | |
tree | 5feee0cf900fd7ce4701b11fbeb1b9e169045fd9 /src/interp/i-syscmd.boot | |
parent | 590b110c303021694c0ed17008d1a3f526f04451 (diff) | |
download | open-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/i-syscmd.boot')
-rw-r--r-- | src/interp/i-syscmd.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 7707906b..6bd05c9c 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -2484,7 +2484,7 @@ reportOpsFromLisplib(op,u) == nArgs:= #argml argList:= KDR getConstructorFormFromDB op functorForm:= [op,:argList] - argml:= EQSUBSTLIST(argList,$FormalMapVariableList,argml) + argml:= applySubst(pairList($FormalMapVariableList,argList),argml) functorFormWithDecl:= [op,:[[":",a,m] for a in argList for m in argml]] sayBrightly concat(bright form2StringWithWhere functorFormWithDecl, '" is a",bright typ,'"constructor") @@ -2524,7 +2524,8 @@ displayOperationsFromLisplib form == opList:= getConstructorOperationsFromDB name null opList => centerAndHighlight('"No exported operations",$LINELENGTH) - opl:=removeDuplicates MSORT EQSUBSTLIST(argl,$FormalMapVariableList,opList) + opl := removeDuplicates MSORT + applySubst(pairList($FormalMapVariableList,argl),opList) ops:= nil for x in opl repeat ops := [:ops,:formatOperationAlistEntry(x)] |