Previous  Up  Next

Module BatConcreteQueue

module BatConcreteQueue: sig .. end
type 'a cell =
| Nil
| Cons of {
   content : 'a;
   mutable next : 'a cell;
} 
type 'a t = {
   mutable length : int;
   mutable first : 'a cell;
   mutable last : 'a cell;
} 
val of_abstr : 'a Stdlib.Queue.t -> 'a t
val to_abstr : 'a t -> 'a Stdlib.Queue.t
val filter_inplace : ('a -> bool) -> 'a t -> unit