diff options
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) |