Rework the block allocator

[ghc-hetmet.git] / rts / Schedule.c

diff --git a/rts/Schedule.c b/rts/Schedule.c
index 77dcf41..c61e623 100644 (file)
--- 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
 }
 
 /* ---------------------------------------------------------------------------