[MLton-commit] r5276

[Vesa Karvonen]

Neater interface.
----------------------------------------------------------------------

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-02-20 17:05:33 UTC (rev 5275)
+++ mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml	2007-02-20 17:31:25 UTC (rev 5276)
@@ -327,15 +327,11 @@
    structure Wait = struct
       type t = C.voidptr
 
-      type 'a waitable = Unit.t
-
       datatype 'a result
         = ABANDONED of 'a
         | OBJECT of 'a
         | TIMEOUT
 
-      val prepare = undefined
-
       val any = undefined
       val all = undefined
    end

Modified: mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig
===================================================================
--- mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig	2007-02-20 17:05:33 UTC (rev 5275)
+++ mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig	2007-02-20 17:31:25 UTC (rev 5276)
@@ -33,17 +33,13 @@
    structure Wait : sig
       type t
 
-      type 'a waitable
-
       datatype 'a result
         = ABANDONED of 'a
         | OBJECT of 'a
         | TIMEOUT
 
-      val prepare : (t * 'a) List.t -> 'a waitable
-
-      val any : 'a waitable * Real.t -> 'a result
-      val all : 'a waitable * Real.t -> 'a result
+      val any : (t * 'a) List.t -> Real.t -> 'a result
+      val all : (t * 'a) List.t -> Real.t -> 'a result
    end
 
    structure Semaphore : sig