diff options
author | 2001-09-20 14:06:42 +0000 | |
---|---|---|
committer | 2001-09-20 14:06:42 +0000 | |
commit | 5072976c16bcb2e3c4d4116d63d949562ad0085c (patch) | |
tree | 9c23241dbe68963eab9677415caede8f2a1d17d9 /library | |
parent | d4d4015ae92634ef5eb4d915d019fc14f400376d (diff) |
warning silencieux
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2019 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
-rw-r--r-- | library/library.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/library/library.ml b/library/library.ml index 3eafa4850..d26c76b60 100644 --- a/library/library.ml +++ b/library/library.ml @@ -354,8 +354,9 @@ let locate_by_filename_only id f = (* We check no other file containing same module is loaded *) try let m = CompUnitmap.find md.md_name !modules_table in - warning ((string_of_dirpath md.md_name)^" is already loaded from file "^ - m.module_filename); + Options.if_verbose warning + ((string_of_dirpath md.md_name)^" is already loaded from file "^ + m.module_filename); (LibLoaded, md.md_name, m.module_filename) with Not_found -> (match split_dirpath md.md_name with |