aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/database.boot4
1 files changed, 2 insertions, 2 deletions
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 ==