improve notion of standadard predicate

2015-03-04 09:54:08 +00:00
parent 5ea3fcd08f
commit 9b6bcdde16
5 changed files with 12 additions and 10 deletions
--- a/C/stdpreds.c
+++ b/C/stdpreds.c
@@ -962,7 +962,7 @@ static Int cont_current_predicate(USES_REGS1) {
    if (!pp)
      cut_fail();
    else
-      EXTRA_CBACK_ARG(4, 2) = MkAddressTerm(pp->NextPredOfModule);
+      EXTRA_CBACK_ARG(4, 1) = MkAddressTerm(pp->NextPredOfModule);
  }
  if (pp->ModuleOfPred != IDB_MODULE) {
    f = pp->FunctorOfPred;