aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/lisplib.boot6
2 files changed, 8 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index bc95dc64..64c155bc 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
2011-09-06 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * interp/lisplib.boot (isFunctor): Tidy.
+
+2011-09-06 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* interp/define.boot (compDefineFunctor1): Set
dbConstructorModemap before compiling functor body.
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