diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-28 18:26:46 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-28 18:26:46 +0000 |
| commit | b90ec55ea2329e5ffeda7f6cbd807f596c9cc444 (patch) | |
| tree | 0047eda31d3ac03cc7f4be9dcfcc8e959959903a /src/interp/cattable.boot | |
| parent | 9c53b933216af4ae6c7233384ace756572dcb597 (diff) | |
| download | open-axiom-b90ec55ea2329e5ffeda7f6cbd807f596c9cc444.tar.gz | |
more cleanup
Diffstat (limited to 'src/interp/cattable.boot')
| -rw-r--r-- | src/interp/cattable.boot | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot index c2270850..bcffbb70 100644 --- a/src/interp/cattable.boot +++ b/src/interp/cattable.boot @@ -57,11 +57,9 @@ genCategoryTable() == SETQ(_*ANCESTORS_-HASH_*, hashTable 'EQ) SETQ(_*HASCATEGORY_-HASH_*,hashTable 'EQUAL) genTempCategoryTable() - domainList:= - [con for con in allConstructors() - | getConstructorKindFromDB con is "domain"] - domainTable:= [addDomainToTable(con,getConstrCat catl) for con - in domainList | catl := getConstructorCategoryFromDB con] + domainTable := + [addDomainToTable(con,getConstrCat getConstructorCategoryFromDB con) + for con in allConstructors() | getConstructorKindFromDB con is "domain"] -- $nonLisplibDomains, $noCategoryDomains are set in BUILDOM BOOT specialDs := SETDIFFERENCE($nonLisplibDomains,$noCategoryDomains) domainTable:= [:[addDomainToTable(id, getConstrCat eval([id]).3) |