Source file `queue.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
include Stdlib.Queue

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 iter t ~f = iter f t

let fold t ~f ~init = fold f init t

let to_list t = List.rev (fold t ~f:(fun acc a -> a :: acc) ~init:[])