core-and-more

Includes core, and some more useful extensions
IN THIS PACKAGE
val gentag : unit -> int
type 'a t = {
mutable table : 'a hash_consed Weak.t array;
mutable totsize : int;
mutable limit : int;
}
val create : int -> 'a t
val clear : 'a t -> unit
val fold : ( 'a hash_consed -> 'b -> 'c ) -> 'a t -> 'd -> 'e
val iter : ( 'a hash_consed -> 'b ) -> 'a t -> unit
val count : 'a t -> int
val next_sz : int -> int
val resize : 'a t -> unit
val add : 'a t -> 'b hash_consed -> unit
val hashcons : ( 'a -> int ) -> ( 'b -> 'c -> int ) -> 'd t -> 'e -> 'f hash_consed
val stats : 'a t -> int * int * int * int * int * int