Module ReadWriteLock

module ReadWriteLock: sig .. end

type t 
val make_reentrant : bool -> t
val read_lock : t -> Lock.t
val write_lock : t -> Lock.t