diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-22 15:51:57 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-22 15:51:57 +0000 |
| commit | 32efd3b0691918cf1d662b095c653d5a0a17ff7b (patch) | |
| tree | b340c1d23d752542fe88fd80ae6d559198c0b263 /src/interp/i-funsel.boot | |
| parent | b0046ba3929c513a399fd1ebb84dee1712c55a02 (diff) | |
| download | open-axiom-32efd3b0691918cf1d662b095c653d5a0a17ff7b.tar.gz | |
more cleanup
Diffstat (limited to 'src/interp/i-funsel.boot')
| -rw-r--r-- | src/interp/i-funsel.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot index 0879b47d..ae8d799a 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -825,7 +825,7 @@ allOrMatchingMms(mms,args1,tar,dc) == x := NIL for mm in mms repeat [sig,:.] := mm - [res,:args] := MSUBSTQ(dc,"$",sig) + [res,:args] := substitute(dc,"$",sig) args ~= args1 => nil x := [mm,:x] if x then x @@ -849,7 +849,7 @@ findFunctionInDomain1(omm,op,tar,args1,args2,SL) == [sig,slot,cond,y] := mm [osig,:.] := omm - osig := subCopy(osig, SUBSTQ(['$,:'$], dollarPair, SL)) + osig := subCopy(osig, substitute(['$,:'$], dollarPair, SL)) if CONTAINED('_#, sig) or CONTAINED('construct,sig) then sig := [replaceSharpCalls t for t in sig] matchMmCond cond and matchMmSig(mm,tar,args1,args2) and @@ -893,7 +893,7 @@ findFunctionInCategory(op,dc,tar,args1,args2,$Coerce,$SubDom) == if maxargs ~= -1 then SL:= NIL for i in 1..maxargs repeat - impls := SUBSTQ(gensym(),INTERNL('"#",STRINGIMAGE i),impls) + impls := substitute(gensym(),INTERNL('"#",STRINGIMAGE i),impls) impls and SL:= constructSubst dc for mm in impls repeat |