diff options
Diffstat (limited to 'src/interp/database.boot')
-rw-r--r-- | src/interp/database.boot | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index 53aba6ec..c65f2c42 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -63,9 +63,11 @@ getConstructorAbbreviationFromDB: %Constructor -> %Symbol getConstructorAbbreviationFromDB ctor == GETDATABASE(ctor,"ABBREVIATION") -getConstructorCategoryFromDB: %Constructor -> %Form -getConstructorCategoryFromDB ctor == - GETDATABASE(ctor,"CONSTRUCTORCATEGORY") +getConstructorCategory: %Constructor -> %Form +getConstructorCategory ctor == + getConstructorKindFromDB ctor = 'category => + GETDATABASE(ctor,"CONSTRUCTORCATEGORY") + getConstructorModemap(ctor).mmTarget getConstructorKindFromDB: %Constructor -> %Maybe %ConstructorKind getConstructorKindFromDB ctor == |