aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/br-data.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot
index 6399277c..1d03c0ec 100644
--- a/src/interp/br-data.boot
+++ b/src/interp/br-data.boot
@@ -576,8 +576,8 @@ ancestorsRecur(conform,domform,pred,firstTime?) == --called by ancestorsOf
if domform and domform.args then
newdomform := applySubst(pairList(conform.args,domform.args),newform)
p := applySubst(pairList(conform.args,domform.args),p)
- newPred := quickAnd(pred,p)
- ancestorsAdd(simpHasPred newPred,newdomform or newform)
+ newPred := simpHasPred quickAnd(pred,p)
+ ancestorsAdd(newPred,newdomform or newform)
ancestorsRecur(newform,newdomform,newPred,false)
tableValue($done,conform) := pred --mark as already processed