compat with older OCaml

This commit is contained in:
Simon Cruanes 2025-12-11 15:49:52 -05:00
parent 0d34f9de4d
commit 9e1165918a
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -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