Source file `sys.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
include Stdlib.Sys

let force_remove =
  if win32
  then (
    fun fn ->
      try remove fn with
      | Sys_error _ ->
        (* Try to remove the "read-only" attribute, then retry. *)
        (try Unix.chmod fn 0o666 with
         | Unix.Unix_error _ -> ());
        remove fn)
  else remove
;;