From d6778dac3a75e3056bc1b626bdda63f965ae7211 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 17 Sep 2002 16:37:48 +0000
Subject: [PATCH] current_predicate should bever export prolog:(_:_)

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@597 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/stdpreds.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/C/stdpreds.c b/C/stdpreds.c
index b50358680..ff2c2519d 100644
--- a/C/stdpreds.c
+++ b/C/stdpreds.c
@@ -1398,6 +1398,8 @@ cont_current_predicate(void)
   if (pp == NULL)
     cut_fail();
   EXTRA_CBACK_ARG(3,1) = (CELL)MkIntegerTerm((Int)(pp->NextPredOfModule));
+  if (pp->FunctorOfPred == FunctorModule)
+    return(FALSE);
   Arity = pp->ArityOfPE;
   if (Arity)
     name = NameOfFunctor(pp->FunctorOfPred);