Module BatConcreteQueue

module BatConcreteQueue: sig .. end

type 'a cell = {
   content : 'a;
   mutable next : 'a cell;
}
type 'a t = {
   mutable length : int;
   mutable tail : 'a cell;
}
val of_abstr : 'a Queue.t -> 'a t
val to_abstr : 'a t -> 'a Queue.t
val filter_inplace : ('a -> bool) -> 'a t -> unit