Source

ocaml-core / base / core / lib / core_condition.ml

The branch 'bash' does not exist.
include Condition

let phys_equal = Caml.(==)

let equal (t : t) t' = phys_equal t t'

external condition_timedwait :
  Condition.t -> Mutex.t -> float -> bool = "unix_condition_timedwait"

let timedwait cnd mtx time =
  condition_timedwait cnd mtx (Time.to_float time)