Add hooks to re-initialize hconsed modules.

[SXSI/xpathcomp.git] / src / hlist.ml

diff --git a/src/hlist.ml b/src/hlist.ml
index 4434e1e..aa3781f 100644 (file)
--- a/src/hlist.ml
+++ b/src/hlist.ml
@@ -28,7 +28,8 @@ module type S = sig
   val rev_map : (elt -> elt) -> t -> t
   val length : t -> int
   val mem : elt -> t -> bool
-
+  val stats : unit -> unit
+  val init : unit -> unit
 end
 
 module Make (H : Hcons.SA) : S with type elt = H.t =
@@ -56,7 +57,8 @@ struct
   let equal = Node.equal
   let uid x= x.Node.id
   let nil = Node.make Nil
-
+  let stats = Node.stats
+  let init = Node.init
   (* doing sorted insertion allows to make better use of hash consing *)
   let rec sorted_cons e l =
     match l.Node.node with