diff options
author | dos-reis <gdr@axiomatics.org> | 2011-09-06 23:45:39 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-09-06 23:45:39 +0000 |
commit | 309c119295f7ff76dd6cd0026aa33daf5baddd84 (patch) | |
tree | 72e4d575714d83988cd6cf6aa14dc0fbde2359fb | |
parent | 1fed226a5d6875b82388a36c6edfd0cb37474f34 (diff) | |
download | open-axiom-309c119295f7ff76dd6cd0026aa33daf5baddd84.tar.gz |
* interp/lisplib.boot (isFunctor): Tidy.
-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 |