Source file infinite_buffers.ml

1
2
3
4
5
6
type 'a t = 'a list

let create _i _default = []
let add x t = x :: t
let iter f t = List.iter f (List.rev t)
let clean _ = []