From 309c119295f7ff76dd6cd0026aa33daf5baddd84 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 6 Sep 2011 23:45:39 +0000
Subject: 	* interp/lisplib.boot (isFunctor): Tidy.

---
 src/interp/lisplib.boot | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index eed097b4..598304a8 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -794,8 +794,10 @@ isFunctor x ==
   $InteractiveMode =>
     builtinFunctorName? op => true
     getConstructorKindFromDB op in '(domain package)
-  u:= get(op,'isFunctor,$CategoryFrame)
-    or op in '(SubDomain Union Record Enumeration) => u
+  u := get(op,'isFunctor,$CategoryFrame) => u
+  op in '(SubDomain Union Record Enumeration) => true
+     --FIXME: above should use builtinFunctionName?.  Change when
+     --FIXME: Mapping acquire first class functorship.
   getConstructorAbbreviationFromDB op =>
     if getConstructorKindFromDB op = "category"
       then updateCategoryFrameForCategory op
-- 
cgit v1.2.3