let
is_updir path1 path2 =
match
relation_of_filename path1 path2
with
UpDir
->
true
|
_
->
false