Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (7 sloc) 189 Bytes
(*s: concurrency.ml *)
open Common
let _biglock = Mutex.create ()
let atomic f =
Mutex.lock _biglock;
Common.finalize f (fun () -> Mutex.unlock _biglock)
(*e: concurrency.ml *)
Something went wrong with that request. Please try again.