diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-14 11:27:47 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-14 11:27:47 +0000 |
| commit | 6dbe0f97c7f23de89b90e232bc812b77dde86cac (patch) | |
| tree | bcf1802bd0c87e9f64a3f0fac1bee0ebe5126eb7 /kernel/names.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 'kernel/names.ml')
| -rw-r--r-- | kernel/names.ml | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index c4e632a3a..1917f8f40 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -22,8 +22,6 @@ open Pp open Errors open Util -let hcons_string = Hashcons.simple_hcons Hashcons.Hstring.generate () - (** {6 Identifiers } *) type identifier = string @@ -38,7 +36,7 @@ let check_ident x = let id_of_string s = let () = check_ident_soft s in let s = String.copy s in - hcons_string s + String.hcons s let string_of_id id = String.copy id @@ -504,13 +502,13 @@ module Hconstruct = Hashcons.Make( let hash = Hashtbl.hash end) -let hcons_ident = hcons_string +let hcons_ident = String.hcons let hcons_name = Hashcons.simple_hcons Hname.generate hcons_ident let hcons_dirpath = Hashcons.simple_hcons Hdir.generate hcons_ident let hcons_uid = Hashcons.simple_hcons Huniqid.generate (hcons_ident,hcons_dirpath) let hcons_mp = - Hashcons.simple_hcons Hmod.generate (hcons_dirpath,hcons_uid,hcons_string) -let hcons_kn = Hashcons.simple_hcons Hkn.generate (hcons_mp,hcons_dirpath,hcons_string) + Hashcons.simple_hcons Hmod.generate (hcons_dirpath,hcons_uid,String.hcons) +let hcons_kn = Hashcons.simple_hcons Hkn.generate (hcons_mp,hcons_dirpath,String.hcons) let hcons_con = Hashcons.simple_hcons Hcn.generate hcons_kn let hcons_mind = Hashcons.simple_hcons Hcn.generate hcons_kn let hcons_ind = Hashcons.simple_hcons Hind.generate hcons_mind |