aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/interp/lisplib.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot
index dca79dcc..06d1d146 100644
--- a/src/interp/lisplib.boot
+++ b/src/interp/lisplib.boot
@@ -716,7 +716,7 @@ isDomainForm(D,e) ==
op := opOf D
not ident? op => false
op is '%when => and/[isDomainForm(e,c) for [.,c] in D.args]
- --db := constructorDB op => dbAbbreviation db in '(domain package)
+ --db := constructorDB op => dbConstructorKind db in '(domain package)
symbolMember?(op,$SpecialDomainNames) or isFunctor op or
((getmode(op,e) is ['Mapping,target,:.]) and isCategoryForm(target,e)) or
isCategoryForm(getmode(op,e),e) or isDomainConstructorForm(D,e)