[MLton-commit] r5350

[Vesa Karvonen]

An unspecified total order on wait(able) objects.

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

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-27 12:20:35 UTC (rev 5349)
+++ mltonlib/trunk/com/ssh/windows/unstable/detail/windows.sml	2007-02-27 13:16:50 UTC (rev 5350)
@@ -312,6 +312,8 @@
    structure Wait = struct
       type t = C.voidptr
 
+      val compare = C.Ptr.compare'
+
       datatype 'a result
         = ABANDONED of 'a
         | OBJECT of 'a

Modified: mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig
===================================================================
--- mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig	2007-02-27 12:20:35 UTC (rev 5349)
+++ mltonlib/trunk/com/ssh/windows/unstable/public/windows-ex.sig	2007-02-27 13:16:50 UTC (rev 5350)
@@ -33,6 +33,8 @@
    structure Wait : sig
       type t
 
+      val compare : t Cmp.t
+
       datatype 'a result
         = ABANDONED of 'a
         | OBJECT of 'a