diff options
author | dos-reis <gdr@axiomatics.org> | 2011-11-13 04:23:19 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-11-13 04:23:19 +0000 |
commit | 6c1c0bcb2816b92639a2a1e55f66504ae712d9d1 (patch) | |
tree | 3f394d12f04660e3557c72630e83ac11ac6ff405 /src/interp/cattable.boot | |
parent | 9cd53b14b6a45a5b55f68d2ca0276dc0b6b1d9e8 (diff) | |
download | open-axiom-6c1c0bcb2816b92639a2a1e55f66504ae712d9d1.tar.gz |
* interp/br-data.boot (buildLibdbConEntry): Exit early if argument
is a builtin constructor.
(mkDependentsHashTable): Filter out builtin constructors.
* interp/cattable.boot (genCategoryTable): Likewise.
* interp/database.boot (getConstructorModemap): Load the
contructor if necessary and try again before failing.
* interp/define.boot (NRTgetLookupFunction): Handle multiple
inheritance of domains.
(getBaseExports): Rename from getExportCategory. Adjust caller.
Handle multiple inheritance of domains.
(extendsCategory): Do not reference $functorForm. Take it from
the DB argument.
(getTargetFromRhs): Do not optimize codegen.
Diffstat (limited to 'src/interp/cattable.boot')
-rw-r--r-- | src/interp/cattable.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot index a25c91b5..4cd1d444 100644 --- a/src/interp/cattable.boot +++ b/src/interp/cattable.boot @@ -61,7 +61,8 @@ genCategoryTable() == genTempCategoryTable() domainTable := [addDomainToTable(con,getConstrCat getConstructorCategory con) - for con in allConstructors() | getConstructorKindFromDB con is "domain"] + for con in allConstructors() | not builtinFunctorName? con + and getConstructorKindFromDB con is "domain"] -- $nonLisplibDomains, $noCategoryDomains are set in BUILDOM BOOT specialDs := setDifference($nonLisplibDomains,$noCategoryDomains) domainTable:= [:[addDomainToTable(id, getConstrCat eval([id]).3) |