hide_predicate

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@571 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-08-14 16:00:54 +00:00
parent 325cfeeadc
commit 5cc8ea1d52
9 changed files with 97 additions and 5 deletions
--- a/C/stdpreds.c
+++ b/C/stdpreds.c
@@ -1375,6 +1375,12 @@ cont_current_predicate(void)
  UInt Arity;
  Atom name;

+  while (pp != NULL) {
+    if (pp->PredFlags & HiddenPredFlag)
+      pp = pp->NextPredOfModule;
+    else
+      break;
+  }
  if (pp == NULL)
    cut_fail();
  EXTRA_CBACK_ARG(3,1) = (CELL)MkIntegerTerm((Int)(pp->NextPredOfModule));