From b90ec55ea2329e5ffeda7f6cbd807f596c9cc444 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 28 Apr 2011 18:26:46 +0000
Subject: more cleanup

---
 src/interp/cattable.boot | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'src/interp/cattable.boot')

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)
-- 
cgit v1.2.3