Module Heap_block

module Heap_block: Heap_block

type 'a t = private 'a

val create : 'a -> 'a t option

create v returns Some t if v is a heap block, where t is physically equal to v

val create_exn : 'a -> 'a t

val value : 'a t -> 'a

value t returns the value that is physically equal to t

val sexp_of_t : ('a -> Sexplib.Sexp.t) -> 'a t -> Sexplib.Sexp.t