From 32efd3b0691918cf1d662b095c653d5a0a17ff7b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 22 Apr 2011 15:51:57 +0000
Subject: more cleanup

---
 src/interp/i-funsel.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/i-funsel.boot')

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
-- 
cgit v1.2.3