BatConcreteQueue
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 Queue.t -> 'a t
val to_abstr : 'a t -> 'a Queue.t
val filter_inplace : ('a -> bool) -> 'a t -> unit