fix bad testing of choice-point in throw (tabling bug?)

2009-12-12 23:22:10 +00:00
parent 0b17d3572b
commit 48861db34e
3 changed files with 5 additions and 3 deletions
--- a/C/exec.c
+++ b/C/exec.c
@@ -1483,7 +1483,9 @@ JumpToEnv(Term t) {
 	previous = handler;
 #ifdef TABLING
      } else {
-	abolish_incomplete_subgoals(handler);
+	if (handler->cp_ap != NOCODE) {
+	  abolish_incomplete_subgoals(handler);
+	}
 #endif /* TABLING */
      }
      /* we reached C-Code */