Module JoinCount.Down

module Down: sig .. end
Simple countdowns.

type t = {
   tick : unit Join.chan;
   wait : unit -> unit;
}
val create : int -> t
create n returns a countdown c for n events. That is, after n messages on c.tick, the call c.wait() will return. Observe that at most one call c.wait() returns.