From 7c3d587ca048a78ff6c15cf1f05a5d73353782aa Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 19 Sep 2001 16:19:00 +0000
Subject: Autorisation de surcharge d'un -R par un -I

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

diff --git a/library/library.ml b/library/library.ml
index de07f3a07c..31e8d65c19 100644
--- a/library/library.ml
+++ b/library/library.ml
@@ -67,9 +67,9 @@ let add_load_path_entry (phys_path,coq_path) =
   let phys_path = canonical_path_name phys_path in
   match list_filter2 (fun p d -> p = phys_path) !load_path with
   | _,[dir] ->
-      if dir <> coq_path && coq_path <> Nametab.default_root_prefix then
-	  (* Assume the user is concerned by module naming *)
+      if coq_path <> dir then
 	begin
+          (* Assume the user is concerned by module naming *)
 	  if dir <> Nametab.default_root_prefix then
 	    warning (phys_path^" was previously bound to "
 	    ^(string_of_dirpath dir)
-- 
cgit v1.2.3