X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fhlist.ml;h=aa3781f363e2d3e3e96ee88877630791b0ac5153;hb=refs%2Fheads%2Fmaster;hp=4434e1e9d71857f7d8e0fb659416734f7d85edc9;hpb=4bbc27978a8e7d36b9d8c47f8b4dd0cf7b654fc6;p=SXSI%2Fxpathcomp.git

diff --git a/src/hlist.ml b/src/hlist.ml
index 4434e1e..aa3781f 100644
--- 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