move AList to core

src/core/AList.ml

@@ -4,6 +4,8 @@ type 'a t = 'a list Atomic.t
 
 let make () = Atomic.make []
 
+let get = Atomic.get
+
 let add self x =
   while
     let old = Atomic.get self in

src/core/AList.mli

@@ -2,6 +2,9 @@
 
 type 'a t
 
+val get : 'a t -> 'a list
+(** Snapshot *)
+
 val make : unit -> 'a t
 
 val add : 'a t -> 'a -> unit

src/core/opentelemetry.ml

@@ -6,6 +6,10 @@ module Lock = Lock
 module Rand_bytes = Rand_bytes
 (** Generation of random identifiers. *)
 
+module AList = AList
+(** Atomic list, for internal usage
+    @since NEXT_RELEASE *)
+
 open struct
   let[@inline] result_bind x f =
     match x with