From 69d34fb0cebfa538143caf0697a65304ea3a7a66 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Manuel=20de=20Morais=20Santos=20Costa?=
 <vsc@xato.(none)>
Date: Tue, 3 Nov 2009 15:07:48 +0000
Subject: [PATCH] fix over zealous cleaning of attributed variables in heapgc.c

---
 C/heapgc.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C/heapgc.c b/C/heapgc.c
index d9a949b22..9b8068e33 100644
--- a/C/heapgc.c
+++ b/C/heapgc.c
@@ -1481,7 +1481,6 @@ static void
 mark_environments(CELL_PTR gc_ENV, OPREG size, CELL *pvbmap)
 {
   CELL_PTR        saved_var;
-
   while (gc_ENV != NULL) {	/* no more environments */
     Int bmap = 0;
     int currv = 0;
@@ -1752,7 +1751,8 @@ mark_trail(tr_fr_ptr trail_ptr, tr_fr_ptr trail_base, CELL *gc_H, choiceptr gc_B
 	  /* reset the gc to believe the original tag */
 	  TrailTerm(trail_base) = AbsAppl((CELL *)TrailTerm(trail_base));
 	}
-	mark_external_reference(&(TrailVal(trail_base)));
+	/* don't need to mark the next TrailVal, this is done at the end
+	   of segment */
 #else
 	trail_base++;
 	mark_external_reference(&(TrailTerm(trail_base)));