diff options
| author | ppedrot | 2012-12-14 11:27:47 +0000 |
|---|---|---|
| committer | ppedrot | 2012-12-14 11:27:47 +0000 |
| commit | 6dbe0f97c7f23de89b90e232bc812b77dde86cac (patch) | |
| tree | bcf1802bd0c87e9f64a3f0fac1bee0ebe5126eb7 /lib/cString.ml | |
| parent | d9f9673d90371ead668863221c1202de49ab1782 (diff) | |
Moving hcons_string to String namespace.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16069 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/cString.ml')
| -rw-r--r-- | lib/cString.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/cString.ml b/lib/cString.ml index b34b219570..59a6d17c6e 100644 --- a/lib/cString.ml +++ b/lib/cString.ml @@ -60,6 +60,7 @@ sig val is_sub : string -> string -> int -> bool module Set : Set.S with type elt = t module Map : Map.S with type key = t + val hcons : string -> string end include String @@ -178,3 +179,5 @@ end module Set = Set.Make(Self) module Map = Map.Make(Self) + +let hcons = Hashcons.simple_hcons Hashcons.Hstring.generate () |