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 7de0092d..bc0554a5 100644
--- a/src/interp/br-data.boot
+++ b/src/interp/br-data.boot
@@ -622,7 +622,7 @@ ancestorsRecur(conform,domform,pred,firstTime?) == --called by ancestorsOf
pred = tableValue($done,conform) => nil --skip if already processed
parents :=
firstTime? and ($insideCategoryIfTrue or $insideFunctorIfTrue) =>
- $lisplibParents
+ dbPrincipals constructorDB op
parentsOf op
originalConform :=
firstTime? and ($insideCategoryIfTrue or $insideFunctorIfTrue) => $form