X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FGCCompact.c;fp=rts%2FGCCompact.c;h=7f9150110179b17d569261046013a44a5d790338;hb=b1953bbb1ed3cb16497e5447db7487f0c2d9e41a;hp=45222c3b9bfe64e207ce0d5c5c9df28585b79eb5;hpb=1e3d53b4707a6c9c7c99cdaa54e3646b840f5cc9;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);