always pass B to meta-calls.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@755 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
d3b8ad429d
commit
c8c4c76e01
4
C/exec.c
4
C/exec.c
@ -411,7 +411,7 @@ p_execute_within(void)
|
||||
XREGS[i] = *pt++;
|
||||
#endif
|
||||
}
|
||||
return (CallPredicate(pen, cut_pt));
|
||||
return (CallPredicate(pen, B));
|
||||
}
|
||||
}
|
||||
} else if (IsAtomOrIntTerm(t)) {
|
||||
@ -447,7 +447,7 @@ p_execute_within(void)
|
||||
return(CallMetaCallWithin(mod, B));
|
||||
}
|
||||
pe = PredPropByAtom(a, mod);
|
||||
return (CallPredicate(RepPredProp(pe), cut_pt));
|
||||
return (CallPredicate(RepPredProp(pe), B));
|
||||
}
|
||||
} else {
|
||||
/* Is Pair Term */
|
||||
|
Reference in New Issue
Block a user