ensure failure after throw from user code.

2013-03-03 08:54:46 -06:00 · 2013-03-03 08:54:46 -06:00 · 1c12d456ae
parent acf565d91b
commit 1c12d456ae
1 changed files with 1 additions and 0 deletions
--- a/C/absmi.c
+++ b/C/absmi.c
@ -7338,6 +7338,7 @@ Yap_absmi(int inp)
 	struct DB_TERM *exp = EX;
 	EX = NULL;
 	Yap_JumpToEnv(Yap_PopTermFromDB(exp));
+	SREG = NULL;
      }
      if (!SREG) {
 	FAIL();