From faaf19e1912ba48e9fbd195d2b90c4e205c87538 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 19 Apr 2011 18:14:50 +0000
Subject: cleanup

---
 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 cef308e2..6652448e 100644
--- a/src/interp/as.boot
+++ b/src/interp/as.boot
@@ -156,7 +156,7 @@ asMakeAlist con ==
     SUBLISLIS($FormalMapVariableList,KDR form,LASSOC(con,$docAlist))
   filestring := strconc(PATHNAME_-NAME STRINGIMAGE filename,'".as")
   constantPart := HGET($constantHash,con) and [['constant,:true]]
-  niladicPart := MEMQ(con,$niladics) and [['NILADIC,:true]]
+  niladicPart := symbolMember?(con,$niladics) and [['NILADIC,:true]]
   falist :=  TAKE(#KDR form,$FormalMapVariableList)
   constructorCategory :=
     kind = 'category =>
@@ -391,7 +391,7 @@ asyAncestors x ==
   x is [op,y,:.] and op in '(PretendTo RestrictTo) => asyAncestors y
   atom x =>
     x = '_% => '_$
-    MEMQ(x, $niladics)       => [x]
+    symbolMember?(x, $niladics)       => [x]
     niladicConstructorFromDB x => [x]
     x
   asyAncestorList x
@@ -975,7 +975,7 @@ asyFindAttrs l ==
   for x in l repeat 
     x0 := x
     while cons? x repeat x := first x
-    if MEMQ(x, $BuiltinAttributes) then attrs := [:attrs, x]
+    if symbolMember?(x, $BuiltinAttributes) then attrs := [:attrs, x]
     else notattrs := [:notattrs, x0]
   [attrs, notattrs]
 
-- 
cgit v1.2.3