From 9130fc21789dd3fc7c1a8c89dc992acfb54dbccd Mon Sep 17 00:00:00 2001
From: Gabriel Dos Reis <gdr@axiomatics.org>
Date: Tue, 19 Jan 2016 04:16:43 -0800
Subject: getConstructorCategory: get it from generated code for category
 constructors.

---
 src/interp/database.boot | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/interp')

diff --git a/src/interp/database.boot b/src/interp/database.boot
index e667ab74..1096c3eb 100644
--- a/src/interp/database.boot
+++ b/src/interp/database.boot
@@ -90,7 +90,10 @@ getConstructorAbbreviationFromDB ctor ==
 getConstructorCategory: %Symbol -> %Form
 getConstructorCategory ctor ==
   getConstructorKindFromDB ctor = 'category =>
-    GETDATABASE(ctor,"CONSTRUCTORCATEGORY")
+    db := constructorDB ctor
+    if not dbBeingDefined? db and dbCategory db isnt [.,:.] then
+      loadDBIfNecessary db
+    dbCategory db
   getConstructorModemap(ctor).mmTarget
 
 getConstructorKindFromDB: %Symbol -> %Maybe %ConstructorKind
-- 
cgit v1.2.3