expose Atomic

src/dune

@@ -1,7 +1,7 @@
 (library
  (public_name moonpool)
  (name moonpool)
- (private_modules atomic_ domain_ d_pool_)
+ (private_modules d_pool_)
  (libraries threads either))
 
 (rule

src/moonpool.ml

@@ -5,3 +5,4 @@ let start_thread_on_some_domain f x =
 module Pool = Pool
 module Fut = Fut
 module Blocking_queue = Bb_queue
+module Atomic = Atomic_

src/moonpool.mli

@@ -62,3 +62,9 @@ module Blocking_queue : sig
       queue, until it's entirely drained; then [pop] will
       also raise {!Closed}. *)
 end
+
+module Atomic = Atomic_
+(** Atomic values.
+
+    This is either a shim using [ref], on pre-OCaml 5, or the
+    standard [Atomic] module on OCaml 5. *)

test/t_futs1.ml

@@ -1,4 +1,4 @@
-open Moonpool
+open! Moonpool
 
 let pool = Pool.create ~min:4 ()
 let pool2 = Pool.create ~min:2 ()