fix tabling code.

2009-05-13 17:11:46 -05:00 · 2009-05-13 17:11:46 -05:00 · 6d8649226c
commit 6d8649226c
parent bdf8b890e3
1 changed files with 1 additions and 1 deletions
--- a/C/exec.c
+++ b/C/exec.c
@ -1474,7 +1474,7 @@ clean_trail(Term t)
      /* so the next cell is the old value */ 
 #ifdef FROZEN_STACKS
      --pt1;
-      pt[0] = TrailVal(pt0);
+      pt[0] = TrailVal(pt1);
 #else
      pt[0] = TrailTerm(pt1-1);
      pt1 -= 3;