From 18ed15a4ce356d8c6a786f86e5875f81b82a4ce5 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Tue, 10 May 2016 09:25:14 +0100
Subject: [PATCH] do not complain on multi-file predicates being discontiguous

---
 C/cdmgr.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/cdmgr.c b/C/cdmgr.c
index 6e1451550..949a3eef3 100644
--- a/C/cdmgr.c
+++ b/C/cdmgr.c
@@ -1464,7 +1464,7 @@ PredEntry *Yap_PredFromClause(Term t USES_REGS) {
 bool Yap_discontiguous(PredEntry *ap, Term mode USES_REGS) {
   register consult_obj *fp;
 
-  if (ap->PredFlags & (DiscontiguousPredFlag))
+  if (ap->PredFlags & (DiscontiguousPredFlag|MultiFileFlag))
     return false;
   if (mode != TermConsult && mode != TermReconsult)
     return false;