[MLton-commit] r5699

[Vesa Karvonen]

appClear makes sense for all imperative queues.
----------------------------------------------------------------------

U   mltonlib/trunk/com/ssh/misc-util/unstable/queue.sig
U   mltonlib/trunk/com/ssh/misc-util/unstable/queue.sml

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

Modified: mltonlib/trunk/com/ssh/misc-util/unstable/queue.sig
===================================================================
--- mltonlib/trunk/com/ssh/misc-util/unstable/queue.sig	2007-06-29 18:49:07 UTC (rev 5698)
+++ mltonlib/trunk/com/ssh/misc-util/unstable/queue.sig	2007-06-30 09:41:41 UTC (rev 5699)
@@ -16,4 +16,6 @@
 
    val deque : 'a t -> 'a Option.t
    val enque : 'a t -> 'a Effect.t
+
+   val appClear : 'a Effect.t -> 'a t Effect.t
 end

Modified: mltonlib/trunk/com/ssh/misc-util/unstable/queue.sml
===================================================================
--- mltonlib/trunk/com/ssh/misc-util/unstable/queue.sml	2007-06-29 18:49:07 UTC (rev 5698)
+++ mltonlib/trunk/com/ssh/misc-util/unstable/queue.sml	2007-06-30 09:41:41 UTC (rev 5699)
@@ -15,7 +15,6 @@
    include QUEUE
    val filter : 'a UnPr.t -> 'a t Effect.t
    val filterOut : 'a UnPr.t -> 'a t Effect.t
-   val appClear : 'a Effect.t -> 'a t Effect.t
 end = struct
    datatype 'a t = T of {back : 'a Node.p Ref.t, front : 'a Node.p Ref.t}