Source file linked_queue0.ml

open! Import0

type 'a t = 'a Stdlib.Queue.t

let create = Stdlib.Queue.create
let clear = Stdlib.Queue.clear
let copy = Stdlib.Queue.copy
let is_empty = Stdlib.Queue.is_empty
let length = Stdlib.Queue.length
let peek = Stdlib.Queue.peek
let pop = Stdlib.Queue.pop
let push = Stdlib.Queue.push
let transfer = Stdlib.Queue.transfer

let iter t ~f:((f : _ -> _) [@local]) =
  let caml_iter : (('a -> unit)[@local]) -> 'a t -> unit =
    Stdlib.Obj.magic (Stdlib.Queue.iter : ('a -> unit) -> 'a t -> unit)
  in
  caml_iter f t
;;

let fold t ~init ~f:((f : _ -> _ -> _) [@local]) =
  let caml_fold : (('b -> 'a -> 'b)[@local]) -> 'b -> 'a t -> 'b =
    Stdlib.Obj.magic (Stdlib.Queue.fold : ('b -> 'a -> 'b) -> 'b -> 'a t -> 'b)
  in
  caml_fold f init t
;;