1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
include Stdlib.Queue
let create () = create ()
let push t x = add x t
let peek_exn t = peek t
let pop_exn t = pop t
let pop t = if is_empty t then None else Some (pop_exn t)
let peek t = if is_empty t then None else Some (peek t)
let clear t = clear t
let copy t = copy t
let is_empty t = is_empty t
let length t = length t
let iter t ~f = iter f t
let fold t ~f ~init = fold f init t
let transfer t1 t2 = transfer t1 t2
let to_list t = List.rev (fold t ~f:(fun acc a -> a :: acc) ~init:[])