X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FEvac.c;h=1ccc8e2da47a51ec30af6f34a81dbf86710af607;hb=e7987f16175f88daa11f06f25d10161a95f84bc4;hp=f2dcbebe3ddde34ac6fa7df9a13142e6a291fe5f;hpb=a370654a872838c43e63bdd6cc279c0ee9913cdf;p=ghc-hetmet.git

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index f2dcbeb..1ccc8e2 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -228,7 +228,7 @@ selector_chain:
         // save any space in any case, and updating with an indirection is
         // trickier in a non-collected gen: we would have to update the
         // mutable list.
-        if ((bd->gen_no > N) || (bd->flags & BF_EVACUATED)) {
+        if (bd->flags & BF_EVACUATED) {
             unchain_thunk_selectors(prev_thunk_selector, (StgClosure *)p);
             *q = (StgClosure *)p;
             return;