let
is_subdir path1 path2 =
match
relation_of_filename path1 path2
with
SubDir
->
true
|
_
->
false