Add Coercion.lhs

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

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