X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fhlist.mli;h=903868cc78395c1a9eeaae72d0681cf8e57323f1;hb=cb728132e1c5cb0a171ee09e9b3ced16da08f796;hp=d7749f19947e72d61e20aa4a06e73ac74e358610;hpb=4b52da1a20a4fe031930bb96d2ca46bec06dc529;p=SXSI%2Fxpathcomp.git

diff --git a/src/hlist.mli b/src/hlist.mli
index d7749f1..903868c 100644
--- a/src/hlist.mli
+++ b/src/hlist.mli
@@ -17,7 +17,7 @@ module type S = sig
   val equal : t -> t -> bool
   val nil : t
   val node : t -> t node
-  val cons : elt -> t -> t
+  val cons : ?sorted:bool -> elt -> t -> t
   val hd : t -> elt
   val tl : t -> t
   val fold : (elt -> 'a -> 'a) -> t -> 'a -> 'a
@@ -27,6 +27,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