X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=c61e623a03a7a4a2e8d0cc38ff985e005d04173c;hb=485b8d1a00a65aa565e3b30ef8f63fa2880d4093;hp=77dcf411c747a2d50126db392b7cad561f15ddec;hpb=cf6b495d8f6d8f08fd6603c5ba2ec7a6acf7ac01;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 77dcf41..c61e623 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2578,7 +2578,6 @@ exitScheduler( void )
 	boundTaskExiting(task);
 	stopTaskManager();
     }
-    closeMutex(&sched_mutex);
 #endif
 }
 
@@ -2586,6 +2585,9 @@ void
 freeScheduler( void )
 {
     freeTaskManager();
+#if defined(THREADED_RTS)
+    closeMutex(&sched_mutex);
+#endif
 }
 
 /* ---------------------------------------------------------------------------