fix ! from deterministic goals cutting across meta-call

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@225 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2001-12-11 16:40:51 +00:00
parent dea18939f4
commit 2e2ddf394b
5 changed files with 60 additions and 3 deletions
--- a/C/exec.c
+++ b/C/exec.c
@@ -452,7 +452,10 @@ p_execute_within2(void)
 	*dest++ = *pt++;
 #endif
      }
-      return (CallPredicate(pen, (choiceptr)(ENV[E_CB])));
+      if (pen->PredFlags & CutTransparentPredFlag)
+	return (CallPredicate(pen, (choiceptr)(ENV[E_CB])));
+      else
+	return (CallPredicate(pen, B));
    }
  } else if (IsAtomTerm(t)) {
    Atom a = AtomOfTerm(t);