From c1159f736c8d8f5b95bc53af7614a63f2ab9a86b Mon Sep 17 00:00:00 2001
From: letouzey
Date: Thu, 22 Aug 2013 14:29:55 +0000
Subject: Less "Coq" strings everywhere

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16725 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/nameops.ml  | 3 ++-
 library/nameops.mli | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

(limited to 'library')

diff --git a/library/nameops.ml b/library/nameops.ml
index 3b8de17d2e..22a21a4d56 100644
--- a/library/nameops.ml
+++ b/library/nameops.ml
@@ -141,7 +141,8 @@ let pr_lab l = str (Label.to_string l)
 let default_library = Names.DirPath.initial (* = ["Top"] *)
 
 (*s Roots of the space of absolute names *)
-let coq_root = Id.of_string "Coq"
+let coq_string = "Coq"
+let coq_root = Id.of_string coq_string
 let default_root_prefix = DirPath.empty
 
 (* Metavariables *)
diff --git a/library/nameops.mli b/library/nameops.mli
index 53cc867862..a30aae2e29 100644
--- a/library/nameops.mli
+++ b/library/nameops.mli
@@ -43,7 +43,8 @@ val pr_lab : Label.t -> Pp.std_ppcmds
 val default_library : DirPath.t
 
 (** This is the root of the standard library of Coq *)
-val coq_root : module_ident
+val coq_root : module_ident (** "Coq" *)
+val coq_string : string (** "Coq" *)
 
 (** This is the default root prefix for developments which doesn't
    mention a root *)
-- 
cgit v1.2.3