From 6dbe0f97c7f23de89b90e232bc812b77dde86cac Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Fri, 14 Dec 2012 11:27:47 +0000
Subject: Moving hcons_string to String namespace.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16069 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/cString.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'lib/cString.ml')

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 ()
-- 
cgit v1.2.3