From c1bf697ff6bf2b914a40b3e867a84762cf214cf1 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 22 Aug 2011 02:09:12 +0000 Subject: * interp/database.boot (getConstructorModemap): Rename from getConstructorModemapFromDB. Adjust callers. --- src/interp/database.boot | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/interp/database.boot') diff --git a/src/interp/database.boot b/src/interp/database.boot index e4245440..d29882a2 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -77,9 +77,9 @@ getConstructorAncestorsFromDB ctor == ++ return the modemap of the constructor or the instantiation ++ of the constructor `form'. -getConstructorModemapFromDB: %Constructor -> %Mode -getConstructorModemapFromDB form == - GETDATABASE(opOf form, 'CONSTRUCTORMODEMAP) +getConstructorModemap: %Constructor -> %Mode +getConstructorModemap ctor == + GETDATABASE(ctor, 'CONSTRUCTORMODEMAP) getConstructorFormFromDB: %Constructor -> %Form getConstructorFormFromDB ctor == -- cgit v1.2.3