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/as.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/as.boot')

diff --git a/src/interp/as.boot b/src/interp/as.boot
index beca8669..1473192c 100644
--- a/src/interp/as.boot
+++ b/src/interp/as.boot
@@ -72,7 +72,7 @@ astran asyFile ==
   $mmAlist : local :=
     [[con,:asyConstructorModemap con] for con in conlist]
   $docAlist : local :=
-    [[con,:REMDUP asyDocumentation con] for con in conlist]
+    [[con,:removeDuplicates asyDocumentation con] for con in conlist]
   $parentsHash : local := MAKE_-HASH_-TABLE()
 --$childrenHash: local := MAKE_-HASH_-TABLE()
   for con in conlist repeat
@@ -151,7 +151,7 @@ asMakeAlist con ==
   opAlist := SUBLISLIS($FormalMapVariableList,KDR form,CDDR alists)
   ancestorAlist:= SUBLISLIS($FormalMapVariableList,KDR form,first alists)
   catAttrs := [[x,:true] for x in getAttributesFromCATEGORY $constructorCategory]
-  attributeAlist := REMDUP [:second alists,:catAttrs]
+  attributeAlist := removeDuplicates [:second alists,:catAttrs]
   documentation :=
     SUBLISLIS($FormalMapVariableList,KDR form,LASSOC(con,$docAlist))
   filestring := strconc(PATHNAME_-NAME STRINGIMAGE filename,'".as")
@@ -375,7 +375,7 @@ asyMakeOperationAlist(con,proplist, key) ==
       pred => [sig,nil,asyPredTran pred]
       [sig]
     HPUT(ht,id,[entry,:HGET(ht,id)])
-  opalist := [[op,:REMDUP HGET(ht,op)] for op in HKEYS ht]
+  opalist := [[op,:removeDuplicates HGET(ht,op)] for op in HKEYS ht]
   --HPUT($opHash,con,[ancestorAlist,attributeAlist,:opalist])
   HPUT($opHash,con,[ancestorAlist,nil,:opalist])
 
-- 
cgit v1.2.3