[MLton-commit] r5343

[Vesa Karvonen]

Added all.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/async/unstable/detail/async.sml
U   mltonlib/trunk/com/ssh/async/unstable/public/async.sig

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

Modified: mltonlib/trunk/com/ssh/async/unstable/detail/async.sml
===================================================================
--- mltonlib/trunk/com/ssh/async/unstable/detail/async.sml	2007-02-26 23:19:54 UTC (rev 5342)
+++ mltonlib/trunk/com/ssh/async/unstable/detail/async.sml	2007-02-27 00:28:01 UTC (rev 5343)
@@ -51,6 +51,7 @@
       fun each e = when (e, fn () => each e)
       fun every ? = each (on ?)
       val any = once o choose
+      val all = each o choose
    end
 
    structure Ch = struct

Modified: mltonlib/trunk/com/ssh/async/unstable/public/async.sig
===================================================================
--- mltonlib/trunk/com/ssh/async/unstable/public/async.sig	2007-02-26 23:19:54 UTC (rev 5342)
+++ mltonlib/trunk/com/ssh/async/unstable/public/async.sig	2007-02-27 00:28:01 UTC (rev 5343)
@@ -70,6 +70,9 @@
 
       val any : Unit.t t List.t Effect.t
       (** {any = once o choose} *)
+
+      val all : Unit.t t List.t Effect.t
+      (** {all = each o choose} *)
    end
 
    (** == Communication Mechanisms ==