From b5e5a671a82f12a6a433663e9edadf7a37abeee4 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sat, 23 May 2009 15:51:50 -0500
Subject: [PATCH] restore stack on JumpExec

---
 C/exec.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/exec.c b/C/exec.c
index ca5c640b5..062e08a9d 100644
--- a/C/exec.c
+++ b/C/exec.c
@@ -1541,7 +1541,7 @@ JumpToEnv(Term t) {
   B->cp_env = (CELL *)env[E_E];
   B->cp_ap = NEXTOP(PredHandleThrow->CodeOfPred,l);
   /* can recover Heap thanks to copy term :-( */
-  /* B->cp_h = H; */
+  B->cp_h = H;
   /* I could backtrack here, but it is easier to leave the unwinding
      to the emulator */
   B->cp_a3 = t;