aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/database.boot4
2 files changed, 6 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 118abb91..a541d279 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-05-12 Gabriel Dos Reis <gdr@integrable-solutions.net>
+
+ * interp/database.boot (getConstructorModemap): Revert previous change.
+
2013-05-11 Gabriel Dos Reis <gdr@integrable-solutions.net>
* algebra/matrix.spad.pamphlet (RectangularMatrix) [ZERO]: Remove.
diff --git a/src/interp/database.boot b/src/interp/database.boot
index d91fedb7..1457f51c 100644
--- a/src/interp/database.boot
+++ b/src/interp/database.boot
@@ -94,8 +94,8 @@ getConstructorAncestorsFromDB ctor ==
++ of the constructor `form'.
getConstructorModemap: %Symbol -> %Mode
getConstructorModemap ctor ==
- db := loadDBIfCan constructorDB ctor => dbConstructorModemap db
- GETDATABASE(ctor, 'CONSTRUCTORMODEMAP)
+ mm := GETDATABASE(ctor, 'CONSTRUCTORMODEMAP) => mm
+ dbConstructorModemap loadDBIfNecessary constructorDB ctor
getConstructorFormFromDB: %Symbol -> %Form
getConstructorFormFromDB ctor ==