let
is_current path =
match
path
with
[ (
CurrentDir
_) ]
->
true
|
_
->
false