X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FTypeable.c;h=4c4d460d667147f3999906136157548447cb98de;hp=e07c764c55362bc6a27215d58f8dbe72c84ff23b;hb=2f6ad11fa0c2995d950c91fd4301f23aceeb443b;hpb=52589e05f86d593bc3e6ea3f1a0b8f6ceae94fe6

diff --git a/rts/Typeable.c b/rts/Typeable.c
index e07c764..4c4d460 100644
--- a/rts/Typeable.c
+++ b/rts/Typeable.c
@@ -20,7 +20,7 @@ void
 exitTypeableStore()
 {
 #ifdef THREADED_RTS
-    /* TODO: Free Mutex! */
+    closeMutex(&typeableStoreLock);
 #endif
     if(typeableStore!=0) {
         freeStablePtr((StgStablePtr)typeableStore);