aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-data.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-data.boot')
-rw-r--r--src/interp/br-data.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot
index bc0554a5..0b71c730 100644
--- a/src/interp/br-data.boot
+++ b/src/interp/br-data.boot
@@ -522,7 +522,7 @@ parentsOfForm [op,:argl] ==
getParentsForDomain domname == --called by parentsOf
acc := nil
- for x in folks getConstructorCategoryFromDB domname repeat
+ for x in folks getConstructorCategory domname repeat
x :=
getConstructorKindFromDB domname = "category" =>
sublisFormal(IFCDR getConstructorForm domname,x,$TriangleVariableList)