diff options
| author | herbelin | 2001-09-19 16:19:00 +0000 |
|---|---|---|
| committer | herbelin | 2001-09-19 16:19:00 +0000 |
| commit | 7c3d587ca048a78ff6c15cf1f05a5d73353782aa (patch) | |
| tree | 5254930d79e67f6c9eabc9f2f4d337e0853f36f7 | |
| parent | 6aeee5dcd080c5a9b8d7ae0d42a4fd8b65650d2b (diff) | |
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
| -rw-r--r-- | library/library.ml | 4 |
1 files 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) |