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 f62d2f59..f8a9b6ad 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -163,10 +163,10 @@ getConstructorArity ctor == getConstructorKind: %Constructor -> %Maybe %ConstructorKind getConstructorKind ctor == kind := getConstructorKindFromDB ctor => - kind = "domain" and isDefaultPackageName ctor => "package" + kind is "domain" and isDefaultPackageName ctor => "package" kind - symbolMember?(ctor,$DomainNames) => "domain" - symbolMember?(ctor,$CategoryNames) => "category" + builtinFunctorName? ctor => "domain" + builtinCategoryName? ctor => "category" nil --% Functions for manipulating MODEMAP DATABASE |