[MLton-commit] r6163

[Vesa Karvonen]

Switched to using the newly introduced library of data structures.

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

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

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

Modified: mltonlib/trunk/com/ssh/async/unstable/detail/async.sml
===================================================================
--- mltonlib/trunk/com/ssh/async/unstable/detail/async.sml	2007-11-13 12:00:03 UTC (rev 6162)
+++ mltonlib/trunk/com/ssh/async/unstable/detail/async.sml	2007-11-13 12:03:49 UTC (rev 6163)
@@ -7,6 +7,8 @@
 structure Async :> ASYNC = struct
    exception Full
 
+   structure Queue = LinkedQueue
+
    structure Handler = struct
       datatype 'a t =
          T of {unlink : Unit.t Effect.t List.t Ref.t, effect : 'a Effect.t}

Modified: mltonlib/trunk/com/ssh/async/unstable/lib.mlb
===================================================================
--- mltonlib/trunk/com/ssh/async/unstable/lib.mlb	2007-11-13 12:00:03 UTC (rev 6162)
+++ mltonlib/trunk/com/ssh/async/unstable/lib.mlb	2007-11-13 12:03:49 UTC (rev 6163)
@@ -6,7 +6,7 @@
 
 local
    $(MLTON_LIB)/com/ssh/extended-basis/unstable/basis.mlb
-   $(MLTON_LIB)/com/ssh/misc-util/unstable/lib.mlb
+   $(MLTON_LIB)/org/mlton/vesak/ds/unstable/lib.mlb
 in
    ann
       "forceUsed"