sig
val add_finalizer : 'a Heap_block.t -> ('a Heap_block.t -> unit) -> unit
val add_finalizer_exn : 'a -> ('a -> unit) -> unit
val finalize_release : unit -> unit
module Alarm :
sig
type t
val create : (unit -> unit) -> Core_gc.Expert.Alarm.t
val delete : Core_gc.Expert.Alarm.t -> unit
val sexp_of_t : Core_gc.Expert.Alarm.t -> Sexplib.Sexp.t
end
end