diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/lisplib.boot | 6 |
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 |