mirror of
https://github.com/ocaml-tracing/ocaml-opentelemetry.git
synced 2026-03-07 18:37:56 -05:00
compat with older OCaml
This commit is contained in:
parent
0d34f9de4d
commit
9e1165918a
1 changed files with 2 additions and 1 deletions
|
|
@ -13,5 +13,6 @@ let update_cas (type res) (self : 'a Atomic.t) (f : 'a -> res * 'a) : res =
|
|||
|
||||
Opentelemetry_domain.relax_loop !backoff;
|
||||
backoff := min 128 (2 * !backoff)
|
||||
done
|
||||
done;
|
||||
assert false
|
||||
with Ret r -> r
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue