let
synchronize f =
let
mtx = create ()
in
let
f' x = critical_section mtx ~f:(
fun
()
->
f x)
in
f'