diff options
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 c7c9c11a..345b67f9 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -204,7 +204,7 @@ selectMms2(op,tar,args1,args2,$Coerce) == -- any Unions, Mapping or Records a' := nil - a := nreverse REMDUP a + a := nreverse removeDuplicates a for x in a repeat null x => 'iterate x = '(RationalRadicals) => a' := [$RationalNumber,:a'] @@ -220,7 +220,7 @@ selectMms2(op,tar,args1,args2,$Coerce) == x is ['FunctionCalled,name] => (xm := get(name,'mode,$e)) and not isPartialMode xm => a' := [xm,:a'] - a := append(a,REMDUP a') + a := append(a,removeDuplicates a') a := [x for x in a | cons?(x)] -- step 1. see if we have one without coercing @@ -1037,7 +1037,7 @@ selectMmsGen(op,tar,args1,args2) == else args := append(args1,args2) if tar then args := [tar,:args] -- for common aggregates, use under domain also - for a in REMDUP args repeat + for a in removeDuplicates args repeat a => atom a => nil fa := QCAR a |