diff options
| -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 205a5506c..b4b3882d3 100644 --- a/lib/system.ml +++ b/lib/system.ml @@ -35,7 +35,7 @@ let all_subdirs ~unix_path:root = Array.iter (fun f -> if ok_dirname f then let file = Filename.concat dir f in - if Sys.is_directory file then begin + if exists_dir file then begin let newrel = rel @ [f] in add file newrel; traverse file newrel |