[MLton-commit] r5428

[Vesa Karvonen]

Removed unused code.
----------------------------------------------------------------------

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-03-14 04:12:33 UTC (rev 5427)
+++ mltonlib/trunk/com/ssh/async/unstable/detail/async.sml	2007-03-15 08:41:18 UTC (rev 5428)
@@ -7,14 +7,6 @@
 structure Async :> ASYNC = struct
    exception Full
 
-   structure Queue = struct
-      open Queue
-      fun dequeWhile p q =
-          case Queue.deque q of
-             NONE => NONE
-           | SOME t => if p t then dequeWhile p q else SOME t
-   end
-
    structure Handler = struct
       datatype 'a t = T of {scheduled : Bool.t Ref.t, effect : 'a Effect.t}
       fun new () = T {scheduled = ref false, effect = id}