diff options
| author | msozeau | 2008-06-21 17:10:28 +0000 |
|---|---|---|
| committer | msozeau | 2008-06-21 17:10:28 +0000 |
| commit | 8874a5916bc43acde325f67a73544a4beb65c781 (patch) | |
| tree | dc87ed564b07fd3901d33f3e570d42df501654f7 /tools | |
| parent | 15682aeca70802dba6f7e13b66521d4ab9e13af9 (diff) | |
Code cleanup in typeclasses, remove dead and duplicated code.
Change from named_context to rel_context for class params and fields.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11163 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/coqdep.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/coqdep.ml b/tools/coqdep.ml index cca6ac0fc0..84f9eb3ff7 100644 --- a/tools/coqdep.ml +++ b/tools/coqdep.ml @@ -442,8 +442,8 @@ let rec add_directory recur add_file phys_dir log_dir = try while true do let f = readdir dirh in - (* we avoid . .. and all hidden files and subdirs (e.g. .svn) *) - if f.[0] <> '.' then + (* we avoid . .. and all hidden files and subdirs (e.g. .svn, _darcs) *) + if f.[0] <> '.' && f.[0] <> '_' then let phys_f = phys_dir//f in match try (stat phys_f).st_kind with _ -> S_BLK with | S_DIR when recur -> add_directory recur add_file phys_f (log_dir@[f]) |