fix setup_call_cleanup and friends.

2009-12-03 02:13:22 +00:00
parent 06d30b9fc9
commit d2da5bfe26
3 changed files with 8 additions and 7 deletions
--- a/H/trim_trail.h
+++ b/H/trim_trail.h
@@ -33,7 +33,6 @@
 	      Bind(pt, MkAtomTerm(AtomCut));
 	      Yap_WakeUp(pt);
 	    }
-	    pt1--;
 	  } else if ((*pt & (LogUpdMask|IndexMask)) == (LogUpdMask|IndexMask)) {
 	    LogUpdIndex *cl = ClauseFlagsToLogUpdIndex(pt);
 	    int erase;