Make.Barrier
type 'a fut = 'a t
type t
val create : unit -> t
val add : t -> _ fut -> unit
Add a future to wait on
val interrupt : t -> unit
val wait : t -> unit fut