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 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'library/nameops.ml')

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