exitScheduler: move boundTaskExiting call outside #ifdef THREADED_RTS

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

diff --git a/rts/Schedule.c b/rts/Schedule.c
index c377974..bb36f9b 100644 (file)
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -2100,9 +2100,10 @@ exitScheduler(
        for (i = 0; i < n_capabilities; i++) {
            shutdownCapability(&capabilities[i], task, wait_foreign);
        }
-       boundTaskExiting(task);
     }
 #endif
+
+    boundTaskExiting(task);
 }
 
 void