use exn_bt, not picos.exn_bt

src/core/dune

@@ -5,7 +5,7 @@
   moonpool.private
   (re_export thread-local-storage)
   moonpool.dpool
-  (re_export picos.exn_bt)
+  (re_export exn_bt)
   (re_export picos))
  (flags :standard -open Moonpool_private)
  (private_modules util_pool_)

src/core/moonpool.ml

@@ -23,7 +23,7 @@ module Blocking_queue = Bb_queue
 module Background_thread = Background_thread
 module Bounded_queue = Bounded_queue
 module Chan = Chan
-module Exn_bt = Exn_bt
+module Exn_bt = Moonpool_exn_bt
 module Fifo_pool = Fifo_pool
 module Fut = Fut
 module Lock = Lock

src/core/moonpool.mli

@@ -21,7 +21,7 @@ module Immediate_runner : sig end
 
     This is removed since 0.6, and replaced by {!Moonpool_fib.Main}. *)
 
-module Exn_bt = Exn_bt
+module Exn_bt = Moonpool_exn_bt
 
 exception Shutdown
 (** Exception raised when trying to run tasks on

src/core/moonpool_exn_bt.ml

@@ -1,4 +1,4 @@
-include Picos_exn_bt
+include Exn_bt
 
 let[@inline] make exn bt : t = { exn; bt }
 let[@inline] exn self = self.exn

src/core/moonpool_exn_bt.mli

@@ -6,7 +6,7 @@
 
 (** An exception bundled with a backtrace *)
 include module type of struct
-  include Picos_exn_bt
+  include Exn_bt
 end
 
 val exn : t -> exn

src/core/types_.ml

@@ -12,10 +12,7 @@ type runner = {
 }
 
 let k_cur_runner : runner TLS.t = TLS.create ()
-[@@alert todo "remove me asap, done via picos now"]
-
 let k_cur_fiber : fiber TLS.t = TLS.create ()
-[@@alert todo "remove me asap, done via picos now"]
 
 let _dummy_computation : Picos.Computation.packed =
   let c = Picos.Computation.create () in