diff options
| author | letouzey | 2013-08-22 14:29:55 +0000 |
|---|---|---|
| committer | letouzey | 2013-08-22 14:29:55 +0000 |
| commit | c1159f736c8d8f5b95bc53af7614a63f2ab9a86b (patch) | |
| tree | 0302c134e9917fc9b4a1099b0a47e0a173610665 /library/nameops.ml | |
| parent | 676f8fac28958d141a73dd56d087ecdbe046ab31 (diff) | |
Less "Coq" strings everywhere
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16725 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/nameops.ml')
| -rw-r--r-- | library/nameops.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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 *) |