aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/ChangeLog5
-rw-r--r--src/interp/database.boot3
2 files changed, 7 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 3cfc6e4d..bb77e5b3 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,10 @@
2013-05-20 Gabriel Dos Reis <gdr@integrable-solutions.net>
+ * interp/database.boot (getConstructorAbbreviationFromDB): Use DB
+ data structure directtly.
+
+2013-05-20 Gabriel Dos Reis <gdr@integrable-solutions.net>
+
* algebra/aggcat.spad.pamphlet (Collection) [find]: Move to
FiniteAggregate.
diff --git a/src/interp/database.boot b/src/interp/database.boot
index 1457f51c..7517e834 100644
--- a/src/interp/database.boot
+++ b/src/interp/database.boot
@@ -74,7 +74,8 @@ makeConstructor(s,k == nil,a == nil) ==
getConstructorAbbreviationFromDB: %Symbol -> %Symbol
getConstructorAbbreviationFromDB ctor ==
- GETDATABASE(ctor,"ABBREVIATION")
+ db := constructorDB ctor => dbAbbreviation db
+ nil
getConstructorCategory: %Symbol -> %Form
getConstructorCategory ctor ==