Module Mbox


module Mbox: sig .. end

type 'a t 
exception Empty
val make : unit -> 'a t
val push : 'a t -> 'a -> unit Event.event
val pop : 'a t -> 'a Event.event
val is_empty : 'a t -> bool
val pop_all : 'a t -> 'a list Event.event