diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-28 17:31:46 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-28 17:31:46 +0000 |
| commit | 15178dda8118c3f0fcd9c9292e2813a71b7af57a (patch) | |
| tree | f2d6a2406d49a8e0d0393a13c68f85bf566aeff2 /lib/system.ml | |
| parent | c48a1b4d2fba0439b81a3c04cd848fd1d53e3b90 (diff) | |
Hack pour contourner CVS en local dans la recherche rcursive de load_path
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1009 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/system.ml')
| -rw-r--r-- | lib/system.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/system.ml b/lib/system.ml index 5da2d9f35..f6da6f866 100644 --- a/lib/system.ml +++ b/lib/system.ml @@ -28,7 +28,7 @@ let all_subdirs root = try while true do let f = readdir dirh in - if f <> "." && f <> ".." then + if f <> "." && f <> ".." && (not Coq_config.local or (f <> "CVS")) then let file = Filename.concat dir f in if (stat file).st_kind = S_DIR then begin let newrel = Filename.concat rel f in |