From 2f68001b62536ddf370419cb2679386ee966a357 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 20 Sep 2001 12:33:22 +0000
Subject: Restriction de l'avertissement add_loadpath au mode verbeux

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2017 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/library.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/library.ml b/library/library.ml
index 31e8d65c19..3eafa48504 100644
--- a/library/library.ml
+++ b/library/library.ml
@@ -71,7 +71,7 @@ let add_load_path_entry (phys_path,coq_path) =
 	begin
           (* Assume the user is concerned by module naming *)
 	  if dir <> Nametab.default_root_prefix then
-	    warning (phys_path^" was previously bound to "
+	    Options.if_verbose warning (phys_path^" was previously bound to "
 	    ^(string_of_dirpath dir)
 	    ^("\nIt is remapped to "^(string_of_dirpath coq_path)));
 	  remove_path phys_path;
-- 
cgit v1.2.3