diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-24 13:03:44 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-09-24 13:03:44 +0000 |
| commit | 17008e9415bb151cb66afdbcc4a7d69a2b9b54c1 (patch) | |
| tree | c18d47a92c103356d85ce6e3598bcce39b1cb2ba /library/library.ml | |
| parent | ee8e52f14194d3888dc6359ceb78abbcc98b0e7c (diff) | |
Bug test booléen
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2056 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/library.ml')
| -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 0f3338a4b..1dac57c84 100644 --- a/library/library.ml +++ b/library/library.ml @@ -69,8 +69,9 @@ let add_load_path_entry (phys_path,coq_path) = | _,[dir] -> if coq_path <> dir (* If this is not the default -I . to coqtop *) - && phys_path <> canonical_path_name Filename.current_dir_name - && coq_path <> Nametab.default_root_prefix + && not + (phys_path = canonical_path_name Filename.current_dir_name + && coq_path <> Nametab.default_root_prefix) then begin (* Assume the user is concerned by module naming *) |