diff options
| author | filliatr | 2001-09-20 14:06:42 +0000 |
|---|---|---|
| committer | filliatr | 2001-09-20 14:06:42 +0000 |
| commit | 5072976c16bcb2e3c4d4116d63d949562ad0085c (patch) | |
| tree | 9c23241dbe68963eab9677415caede8f2a1d17d9 | |
| parent | d4d4015ae92634ef5eb4d915d019fc14f400376d (diff) | |
warning silencieux
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2019 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 3eafa48504..d26c76b60f 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 |