X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FGCAux.c;h=66806f4d3fe43f701eb3d3f378a9a9f7a4e2cb77;hb=66579ff945831c5fc9a17c58c722ff01f2268d76;hp=48179f7920e4b5a443634a677d6076306fd0dba3;hpb=5b726bda032c2015a34131c41d1d338cc759736f;p=ghc-hetmet.git

diff --git a/rts/sm/GCAux.c b/rts/sm/GCAux.c
index 48179f7..66806f4 100644
--- a/rts/sm/GCAux.c
+++ b/rts/sm/GCAux.c
@@ -71,7 +71,7 @@ isAlive(StgClosure *p)
     }
 
     // check the mark bit for compacted steps
-    if ((bd->flags & BF_COMPACTED) && is_marked((P_)q,bd)) {
+    if ((bd->flags & BF_MARKED) && is_marked((P_)q,bd)) {
 	return p;
     }