do not complain on multi-file predicates being discontiguous
This commit is contained in:
parent
83a1269553
commit
18ed15a4ce
@ -1464,7 +1464,7 @@ PredEntry *Yap_PredFromClause(Term t USES_REGS) {
|
|||||||
bool Yap_discontiguous(PredEntry *ap, Term mode USES_REGS) {
|
bool Yap_discontiguous(PredEntry *ap, Term mode USES_REGS) {
|
||||||
register consult_obj *fp;
|
register consult_obj *fp;
|
||||||
|
|
||||||
if (ap->PredFlags & (DiscontiguousPredFlag))
|
if (ap->PredFlags & (DiscontiguousPredFlag|MultiFileFlag))
|
||||||
return false;
|
return false;
|
||||||
if (mode != TermConsult && mode != TermReconsult)
|
if (mode != TermConsult && mode != TermReconsult)
|
||||||
return false;
|
return false;
|
||||||
|
Reference in New Issue
Block a user