[MLton-commit] r5363

[Vesa Karvonen]

Simplification.

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

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

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

Modified: mltonlib/trunk/com/ssh/async/unstable/detail/async.sml
===================================================================
--- mltonlib/trunk/com/ssh/async/unstable/detail/async.sml	2007-02-28 13:04:32 UTC (rev 5362)
+++ mltonlib/trunk/com/ssh/async/unstable/detail/async.sml	2007-02-28 13:34:55 UTC (rev 5363)
@@ -54,8 +54,10 @@
                       case e () of
                          INL ef => lp (es & ef::efs)
                        | result => result))
-      fun once (E t) = Sum.app (fn ef => ef (Handler.new ()),
-                                Queue.enque Handler.handlers o const) (t ())
+      fun once (E t) =
+          case t () of
+             INL ef => ef (Handler.new ())
+           | INR () => ()
       fun when ? = once (on ?)
       fun each e = when (e, fn () => each e)
       fun every ? = each (on ?)