diff options
Diffstat (limited to 'src/interp/br-data.boot')
-rw-r--r-- | src/interp/br-data.boot | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index ab28dc08..8d87ac04 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -589,9 +589,7 @@ ancestorsRecur(conform,domform,pred,firstTime?) == --called by ancestorsOf parents := firstTime? => dbPrincipals constructorDB op parentsOf op - originalConform := - firstTime? and ($insideCategoryIfTrue or $insideFunctorIfTrue) => $form - getConstructorForm op + originalConform := getConstructorForm op if conform ~= originalConform then parents := applySubst(pairList(originalConform.args,conform.args),parents) for [newform,:p] in parents repeat |