aboutsummaryrefslogtreecommitdiff
path: root/src/interp/cattable.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-05-20 05:08:05 +0000
committerdos-reis <gdr@axiomatics.org>2011-05-20 05:08:05 +0000
commitad4542e0a85404bc38411060e5994ed11313a33a (patch)
treefcfb56e725c9d2c73a416bc72afb6953b332d7ff /src/interp/cattable.boot
parent09469d002d15b88c105731142bce403a1aa5a21b (diff)
downloadopen-axiom-ad4542e0a85404bc38411060e5994ed11313a33a.tar.gz
more cleanup
Diffstat (limited to 'src/interp/cattable.boot')
-rw-r--r--src/interp/cattable.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot
index 87d469db..d86290f4 100644
--- a/src/interp/cattable.boot
+++ b/src/interp/cattable.boot
@@ -205,7 +205,7 @@ genTempCategoryTable() ==
addToCategoryTable con ==
-- adds an entry to $tempCategoryTable with key=con and alist entries
- u := CAAR getConstructorModemapFromDB con --domain
+ u := getConstructorModemapFromDB(con).mmDC --domain
alist := getCategoryExtensionAlist u
tableValue(_*ANCESTORS_-HASH_*,first u) := alist
alist