do not complain on multi-file predicates being discontiguous

This commit is contained in:
Vitor Santos Costa 2016-05-10 09:25:14 +01:00
parent 83a1269553
commit 18ed15a4ce

View File

@ -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;