diff options
| author |  soubiran <soubiran@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-04-25 10:06:03 +0000 |
|---|---|---|
| committer | soubiran <soubiran@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-04-25 10:06:03 +0000 |
| commit | 2c75beb4e24c91d3ecab07ca9279924205002ada (patch) | |
| tree | 951396dbe83ee62df3c43a3981470bbc89bbe3d9 /library/nametab.ml | |
| parent | c8d991594d9e97e4791dfd9179e6f8290a72ef8b (diff) | |
(PR#1529)
Now the warning will be printed when the flag verbose is on.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9794 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/nametab.ml')
| -rw-r--r-- | library/nametab.ml | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/library/nametab.ml b/library/nametab.ml index e4a8ee995..ffca8bf4a 100644 --- a/library/nametab.ml +++ b/library/nametab.ml @@ -107,8 +107,9 @@ struct | Absolute (n,_) -> (* This is an absolute name, we must keep it otherwise it may become unaccessible forever *) - warning ("Trying to mask the absolute name \"" - ^ U.to_string n ^ "\"!"); + Options.if_verbose + warning ("Trying to mask the absolute name \"" + ^ U.to_string n ^ "\"!"); current | Nothing | Relative _ -> Relative (uname,o) @@ -146,8 +147,9 @@ let rec push_exactly uname o level (current,dirmap) = function | Absolute (n,_) -> (* This is an absolute name, we must keep it otherwise it may become unaccessible forever *) - warning ("Trying to mask the absolute name \"" - ^ U.to_string n ^ "\"!"); + Options.if_verbose + warning ("Trying to mask the absolute name \"" + ^ U.to_string n ^ "\"!"); current | Nothing | Relative _ -> Relative (uname,o) |