From 2fa1dc39371b8f770ce662d56d85bf6f20413aac Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Sun, 25 Sep 2016 23:38:39 +0200 Subject: Fix bug #5090: Effect of -Q depends on coqtop's current directory. This bug was seemingly introduced on purpose by commit 9c5ea63 in 2001. It seems that the original motivation was to deactivate a warning when overriding the default loadpath binding of the current directory, but in the end it made it non-overridable. --- library/loadpath.ml | 3 --- 1 file changed, 3 deletions(-) diff --git a/library/loadpath.ml b/library/loadpath.ml index e6f6716c3..d03c6c555 100644 --- a/library/loadpath.ml +++ b/library/loadpath.ml @@ -72,9 +72,6 @@ let add_load_path phys_path coq_path ~implicit = let replace = if DirPath.equal coq_path old_path then implicit <> old_implicit - else if DirPath.equal coq_path (Nameops.default_root_prefix) - && String.equal phys_path (CUnix.canonical_path_name Filename.current_dir_name) then - false (* This is the default "-I ." path, don't override the old path *) else let () = (* Do not warn when overriding the default "-I ." path *) -- cgit v1.2.3