initialise initial ENV fully.

2011-04-15 23:05:03 +01:00 · 2011-04-15 23:05:03 +01:00 · 7a78d5c200
commit 7a78d5c200
parent 442e5e0b81
1 changed files with 3 additions and 0 deletions
--- a/C/exec.c
+++ b/C/exec.c
@ -1018,6 +1018,9 @@ init_stack(int arity, CELL *pt, int top, choiceptr saved_b USES_REGS)
  YENV[E_CP] = (CELL)P;
  YENV[E_CB] = (CELL)B;
  YENV[E_E]  = (CELL)ENV;
+#ifdef  TABLING
+  YENV[E_B] = (CELL)B;
+#endif
 #ifdef  DEPTH_LIMIT
  YENV[E_DEPTH] = DEPTH;
 #endif