diff options
author | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:57:33 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 21:57:33 +0000 |
commit | f42883e3da3524177b4a8c6f42c8e7b1646a6265 (patch) | |
tree | 7802320c3cab01a11aa32fd87bf8ea00f265fd80 /src/interp/i-map.boot | |
parent | 37bce222d153e4b7b0c086b9c717435f4cdd2c77 (diff) | |
download | open-axiom-f42883e3da3524177b4a8c6f42c8e7b1646a6265.tar.gz |
More cleanups
Diffstat (limited to 'src/interp/i-map.boot')
-rw-r--r-- | src/interp/i-map.boot | 8 |
1 files changed, 4 insertions, 4 deletions
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) == |