let status_files files =
let rec iter acc l =
match l with
[] -> acc
| file :: q ->
try
let i = status_file file in
iter (i :: acc) q
with
CvsFailure s ->
prerr_endline s;
iter acc q
in
List.rev (iter [] files)