Thread.Ivar
type 'a t = 'a Async_kernel.Ivar.t
val create : unit -> 'a t
val create_full : 'a -> 'a t
val fill : 'a t -> 'a -> unit
val read : 'a t -> 'a Deferred.t
val is_full : 'a t -> bool
val fill_if_empty : 'a t -> 'a -> unit