diff options
| -rwxr-xr-x | tools/coqdep.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/tools/coqdep.ml b/tools/coqdep.ml index 45353d7f99..c287dbbfd4 100755 --- a/tools/coqdep.ml +++ b/tools/coqdep.ml @@ -369,10 +369,7 @@ let all_subdirs root_dir log_dir = let l = ref [(root_dir,[log_dir])] in let add f = l := f :: !l in let rec traverse phys_dir dir = - let dirh = - try opendir phys_dir - with Unix_error _ -> invalid_arg "all_subdirs" - in + let dirh = handle_unix_error opendir phys_dir in try while true do let f = readdir dirh in |