Ambient_context_atomic.Util_atomic
val update_cas : 'a Atomic.t -> ('a -> 'res * 'a) -> 'res
Update loop