From 9e1165918a39af1bfcac1da178852cdb410b3ed1 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 11 Dec 2025 15:49:52 -0500
Subject: [PATCH] compat with older OCaml

---
 src/util/util_atomic.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/util/util_atomic.ml b/src/util/util_atomic.ml
index 7fbbc0fa..45dfef5c 100644
--- a/src/util/util_atomic.ml
+++ b/src/util/util_atomic.ml
@@ -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