1 Our compiler will think that os_type = "Win32". Unfortunately in
2 the default OCaml this has the negative effect of causing it to
3 use '\' character in paths. Since it's really running on a Linux
4 kernel, that won't work. This is a quick and dirty fix.
6 diff --exclude _build -urN ocaml-3.11.0+beta1.orig/stdlib/filename.ml ocaml-3.11.0+beta1.mingw/stdlib/filename.ml
7 --- ocaml-3.11.0+beta1.orig/stdlib/filename.ml 2007-01-09 13:42:17.000000000 +0000
8 +++ ocaml-3.11.0+beta1.mingw/stdlib/filename.ml 2008-11-15 14:34:37.000000000 +0000
11 let current_dir_name = "."
12 let parent_dir_name = ".."
15 let is_dir_sep s i = let c = s.[i] in c = '/' || c = '\\' || c = ':'
16 let rindex_dir_sep s =