Rc_pool (rc_pool.Rc

module type Data_intf = sig ... end

module type S = sig ... end

exception Free_unsaved_value

module Make
  (Key : Core_kernel.Hashable.S)
  (Data : Data_intf with type key := Key.t) : 
  S with type key := Key.t and type data := Data.t