X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FGCCompact.c;h=7f9150110179b17d569261046013a44a5d790338;hb=e2eebc0d70de13de6d58e2af89f90ec71e54375c;hp=45222c3b9bfe64e207ce0d5c5c9df28585b79eb5;hpb=5a2769f0273dd389977e8283375e7920d183bdd4;p=ghc-hetmet.git

diff --git a/rts/GCCompact.c b/rts/GCCompact.c
index 45222c3..7f91501 100644
--- a/rts/GCCompact.c
+++ b/rts/GCCompact.c
@@ -403,9 +403,7 @@ thread_TSO (StgTSO *tso)
 	) {
 	thread_(&tso->block_info.closure);
     }
-    if ( tso->blocked_exceptions != NULL ) {
-	thread_(&tso->blocked_exceptions);
-    }
+    thread_(&tso->blocked_exceptions);
     
     thread_(&tso->trec);