exception at fail could loop with bad env. #59

2009-05-22 19:43:17 -05:00
parent b93e5fd300
commit c00facdd17
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 */