From 9136c7f5b4165a9ec42c75c41adb5dd1737e4449 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 1 Dec 2009 11:33:52 +0000
Subject: [PATCH] exitScheduler: move boundTaskExiting call outside #ifdef
 THREADED_RTS Fixes a little leaked memory at shutdown in
 non-threaded RTS

---
 rts/Schedule.c |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/rts/Schedule.c b/rts/Schedule.c
index c377974..bb36f9b 100644
--- 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
-- 
1.7.10.4