From 6c36217f8a6721a3695e6c8d0b5f86401b5ed18b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 2 May 2011 16:23:37 +0000
Subject: more cleanups

---
 src/interp/define.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/define.boot b/src/interp/define.boot
index 599e9ca4..5d3772e0 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -656,7 +656,7 @@ mkEvalableCategoryForm c ==
     op="Join" => ["Join",:[mkEvalableCategoryForm x for x in argl]]
     op is "DomainSubstitutionMacro" => mkEvalableCategoryForm second argl
     op is "mkCategory" => c
-    symbolMember?(op,$CategoryNames) =>
+    builtinCategoryName? op =>
       ([x,m,$e]:= compOrCroak(c,$EmptyMode,$e); m=$Category => x)
     --loadIfNecessary op
     getConstructorKindFromDB op = 'category or
-- 
cgit v1.2.3