From c1bf697ff6bf2b914a40b3e867a84762cf214cf1 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 22 Aug 2011 02:09:12 +0000
Subject: 	* interp/database.boot (getConstructorModemap): Rename from 
 getConstructorModemapFromDB.  Adjust callers.

---
 src/interp/g-util.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/g-util.boot')

diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 53926f37..2efeff70 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -238,7 +238,7 @@ get1(x,prop,e) ==
 
 get2(x,prop) ==
   prop="modemap" and ident? x and constructor? x =>
-    (u := getConstructorModemapFromDB x) => [u]
+    (u := getConstructorModemap x) => [u]
     nil
   nil
 
-- 
cgit v1.2.3