From f42883e3da3524177b4a8c6f42c8e7b1646a6265 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 9 May 2010 21:57:33 +0000
Subject: More cleanups

---
 src/interp/i-map.boot | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/src/interp/i-map.boot b/src/interp/i-map.boot
index a93883cd..03c15c50 100644
--- a/src/interp/i-map.boot
+++ b/src/interp/i-map.boot
@@ -151,7 +151,7 @@ addDefMap(['DEF,lhs,mapsig,.,rhs],pred) ==
   for parm in parameters repeat mkLocalVar($mapName,parm)
   userVariables2 := setDifference(userVariables1,findLocalVars(op,rhs))
   userVariables3 := setDifference(userVariables2, parameters)
-  userVariables4 := REMDUP setDifference (userVariables3, [op])
+  userVariables4 := removeDuplicates setDifference (userVariables3, [op])
 
   --figure out the new dependencies for the new map (what it depends on)
   newDependencies := makeNewDependencies (op, userVariables4)
@@ -235,7 +235,7 @@ getUserIdentifiersIn body ==
       cons? op or not (GETL(op,'Nud) or GETL(op,'Led) or GETL(op,'up))=>
         NCONC(getUserIdentifiersIn op, argIdList)
       argIdList
-    REMDUP bodyIdList
+    removeDuplicates bodyIdList
 
 getUserIdentifiersInIterators itl ==
   for x in itl repeat
@@ -247,7 +247,7 @@ getUserIdentifiersInIterators itl ==
       varList:= [:getUserIdentifiersIn a,:varList]
     keyedSystemError("S2GE0016",['"getUserIdentifiersInIterators",
       '"unknown iterator construct"])
-  REMDUP varList
+  removeDuplicates varList
 
 getIteratorIds itl ==
   for x in itl repeat
@@ -1067,7 +1067,7 @@ listOfVariables pat ==
   IDENTP pat => (pat='_. => nil ; [pat])
   pat is ['_:,var] or pat is ['_=,var] =>
     (var='_. => NIL ; [var])
-  cons? pat => REMDUP [:listOfVariables p for p in pat]
+  cons? pat => removeDuplicates [:listOfVariables p for p in pat]
   nil
 
 getMapBody(op,mapDef) ==
-- 
cgit v1.2.3