Add a new option to choose tree model at runtime.

[tatoo.git] / src / hcons.mli

diff --git a/src/hcons.mli b/src/hcons.mli
index b4049a0..6a6ede8 100644 (file)
--- a/src/hcons.mli
+++ b/src/hcons.mli
@@ -13,11 +13,8 @@
 (*                                                                     *)
 (***********************************************************************)
 
-(*
-  Time-stamp: <Last modified on 2013-03-04 23:05:14 CET by Kim Nguyen>
-*)
-
 (** Implementation of generic hashconsing. *)
+(** {directinclude true} *)
 
 include module type of Hcons_sig
 
@@ -38,7 +35,7 @@ module Weak (H : Common_sig.HashedType) : S with type data = H.t
     explicitely by calling [init].
 *)
 
-module PosInt : Abstract with type data = int and type t = int
+module PosInt : Abstract with type data = int and type t = private int
 (** Compact implementation of hashconsed positive integer that
     avoids boxing. [PosInt.make v] raises [Invalid_argument] if
     [ v < 0 ]