aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-04-28 18:26:46 +0000
committerdos-reis <gdr@axiomatics.org>2011-04-28 18:26:46 +0000
commitb90ec55ea2329e5ffeda7f6cbd807f596c9cc444 (patch)
tree0047eda31d3ac03cc7f4be9dcfcc8e959959903a /src/interp
parent9c53b933216af4ae6c7233384ace756572dcb597 (diff)
downloadopen-axiom-b90ec55ea2329e5ffeda7f6cbd807f596c9cc444.tar.gz
more cleanup
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/cattable.boot8
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)