module Core_mutex:A fast_mutex is just like a mutex, except that it uses try_lock to acquire locks, and is hence faster when it acquires the lock.sig
..end
typet =
Mutex.t
val create : unit -> t
val lock : t -> unit
val try_lock : t -> bool
val unlock : t -> unit
val critical_section : t -> f:(unit -> 'a) -> 'a