diff options
Diffstat (limited to 'src/interp/database.boot')
| -rw-r--r-- | src/interp/database.boot | 6 |
1 files changed, 3 insertions, 3 deletions
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 == |