let rename_opt src dst = try (Sys.rename src dst; None) with | e -> Some e