let lexbuf = L.from_channel (open_in file) in
let l = (startchunk cLine file lexbuf) in
if Sys.argv.(3) = "-o" then (
- Unix.unlink Sys.argv.(4);
+ try Unix.unlink Sys.argv.(4) with _ -> ();
let ob = open_out_gen [ Open_trunc ; Open_wronly; Open_creat ] 0o444 Sys.argv.(4) in
match Sys.argv.(1) with
| "-h" -> warn ob; do_h ob l; close_out ob