aboutsummaryrefslogtreecommitdiff
path: root/src/interp/cattable.boot
diff options
context:
space:
mode:
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