exception at fail could loop with bad env. #59

2009-05-22 19:43:17 -05:00 · 2009-05-22 19:43:17 -05:00 · c00facdd17
commit c00facdd17
parent b93e5fd300
1 changed files with 1 additions and 0 deletions
--- a/C/absmi.c
+++ b/C/absmi.c
@ -2759,6 +2759,7 @@ Yap_absmi(int inp)
 	SREG = (CELL *)RepPredProp(Yap_GetPredPropByAtom(AtomFail,0));
 	/* make sure we have the correct environment for continuation */
 	ENV = B->cp_env;
+	YENV  = (CELL *)B;
 	goto creep;
      }
      /* don't do debugging and friends here */