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