From 1161f8042646011a5fd1629ade1fe45b38c73f0b Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 13 Mar 2009 19:36:38 +0000
Subject: [PATCH] fix calling SWI C-Predicates.

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

diff --git a/C/c_interface.c b/C/c_interface.c
index 654e7e884..c808839ec 100644
--- a/C/c_interface.c
+++ b/C/c_interface.c
@@ -1099,7 +1099,7 @@ typedef Int (*CPredicateV)(Int,Int,struct context *);
 Int
 YAP_Execute(PredEntry *pe, CPredicate exec_code)
 {
-  if (pe->PredFlags & CArgsPredFlag) {
+  if (pe->PredFlags & SWIEnvPredFlag) {
     CPredicateV codev = exec_code;
     struct context ctx;