diff options
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)] |