X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=537cee0d536a1e740eb5231478cb523366b4878e;hb=cbc5fb05036f3c1990b2f9f91b9e1c66b97a392f;hp=a9ea81bbe44f75aad7d945d03c7d81d1a707d463;hpb=179a3a7bd67ccc816e3b934eff770fb49c4cc456;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index a9ea81b..537cee0 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -3152,7 +3152,7 @@ resurrectThreads (StgTSO *threads)
 	case BlockedOnException:
 	    /* Called by GC - sched_mutex lock is currently held. */
 	    throwToSingleThreaded(cap, tso,
-				  (StgClosure *)BlockedOnDeadMVar_closure);
+				  (StgClosure *)blockedOnDeadMVar_closure);
 	    break;
 	case BlockedOnBlackHole:
 	    throwToSingleThreaded(cap, tso,
@@ -3160,7 +3160,7 @@ resurrectThreads (StgTSO *threads)
 	    break;
 	case BlockedOnSTM:
 	    throwToSingleThreaded(cap, tso,
-				  (StgClosure *)BlockedIndefinitely_closure);
+				  (StgClosure *)blockedIndefinitely_closure);
 	    break;
 	case NotBlocked:
 	    /* This might happen if the thread was blocked on a black hole