Re: [Ocaml-lib-devel] Proposal : Path

[Yamagata Y. <yo...@us...>]

From: "Nicolas Cannasse" <war...@fr...>
Subject: [Ocaml-lib-devel] Proposal : Path
Date: Fri, 14 Nov 2003 14:33:34 +0900

> let def_sep =3D (if windows then "\\" else "/")
> 
> exception Cannot_up
> exception Invalid_path of string
> 
> let to_string =3D function
> 	| [] -> ""
> 	| [x] when x =3D=3D def_sep -> def_sep
> 	| p ->
> 		String.concat def_sep (List.rev p) ^ def_sep

Is there a reason not using Filename module?

--
Yamagata Yoriyuki