From 2c75beb4e24c91d3ecab07ca9279924205002ada Mon Sep 17 00:00:00 2001 From: soubiran Date: Wed, 25 Apr 2007 10:06:03 +0000 Subject: (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 --- library/nametab.ml | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'library/nametab.ml') 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) -- cgit v1.2.3