fix compilation of |

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1677 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2006-08-01 13:14:17 +00:00
parent beba8315ca
commit db0ab3fd62
3 changed files with 12 additions and 5 deletions
--- a/C/exec.c
+++ b/C/exec.c
@@ -1663,7 +1663,7 @@ p_cut_up_to_next_disjunction(void) {
  CELL *qenv = (CELL *)ENV[E_E];
  
  while (pt0 &&
-	 (!disj_marker(pt0->cp_ap) ||  qenv != pt0->cp_env)) {
+	 !( qenv == pt0->cp_env && disj_marker(pt0->cp_ap))) {
    pt0 = pt0->cp_b;
  }
  if (!pt0)