let make_absolute base_path path =
    f2s (PathOperation.make_absolute (s2f base_path) (s2f path))