From 8874a5916bc43acde325f67a73544a4beb65c781 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Sat, 21 Jun 2008 17:10:28 +0000
Subject: 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
---
 tools/coqdep.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tools')

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])
-- 
cgit v1.2.3