Added CCIO.remove_safe.

src/io/CCIO.ml

@@ -209,6 +209,8 @@ module File = struct
 
   let remove f = Sys.remove f
 
+  let remove_safe f = try Sys.remove f with _ -> ()
+
   let read_dir_base d =
     if Sys.is_directory d
     then

src/io/CCIO.mli

@@ -147,6 +147,7 @@ module File : sig
   val is_directory : t -> bool
 
   val remove : t -> unit
+  val remove_safe : t -> unit
 
   val read_dir : ?recurse:bool -> t -> t gen
   (** [read_dir d] returns a sequence of files and directory contained