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 /src/interp/lisplib.boot | |
| parent | 1fed226a5d6875b82388a36c6edfd0cb37474f34 (diff) | |
| download | open-axiom-309c119295f7ff76dd6cd0026aa33daf5baddd84.tar.gz | |
* interp/lisplib.boot (isFunctor): Tidy.
Diffstat (limited to 'src/interp/lisplib.boot')
| -rw-r--r-- | src/interp/lisplib.boot | 6 |
1 files changed, 4 insertions, 2 deletions
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 |