[MLton-commit] r5408

[Vesa Karvonen]

Added the missing Mutex.release.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml
U   mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig

----------------------------------------------------------------------

Modified: mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml
===================================================================
--- mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml	2007-03-07 13:30:27 UTC (rev 5407)
+++ mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml	2007-03-07 15:00:55 UTC (rev 5408)
@@ -410,6 +410,7 @@
                      (fn () => F"Mutex.create"[A (opt str) name, A bool own])
                      F_win_CreateMutex.f' (null, toCBool own, name'))
       val close = ptrToBool "Mutex.close" F_win_CloseHandle.f'
+      val release = ptrToBool "Mutex.release" F_win_ReleaseMutex.f'
       val toWait = id
    end
 

Modified: mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig
===================================================================
--- mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig	2007-03-07 13:30:27 UTC (rev 5407)
+++ mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig	2007-03-07 15:00:55 UTC (rev 5408)
@@ -60,6 +60,7 @@
       type t
       val create : {name : String.t Option.t, own : Bool.t} -> t
       val close : t Effect.t
+      val release : t Effect.t
       val toWait : t -> Wait.t
    end