From fa610ed53597f125f9e342203456b6956ab414f8 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Tue, 2 Sep 2025 15:08:22 -0400 Subject: [PATCH] Update src/core/opentelemetry.ml --- src/core/opentelemetry.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/core/opentelemetry.ml b/src/core/opentelemetry.ml index be88a9db..69a8325c 100644 --- a/src/core/opentelemetry.ml +++ b/src/core/opentelemetry.ml @@ -1471,7 +1471,7 @@ module Metrics_callbacks = struct let register f : unit = (* sets [registered_with_on_tick] to [true] atomically, iff it is currently [false]. *) - if Atomic.compare_and_set registered_with_on_tick false true then + if not (Atomic.exchange registered_with_on_tick true) then (* make sure we call [f] (and others) at each tick *) Collector.on_tick (fun () -> let m = List.map (fun f -> f ()) (AList.get cbs_) |> List.flatten in