This commit is contained in:
John Whitington 2018-02-13 18:14:48 +00:00
parent 3f9f5a3742
commit f67730df0f
1 changed files with 1 additions and 1 deletions

View File

@ -2335,7 +2335,7 @@ let write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf =
assert false assert false
with with
End_of_file -> End_of_file ->
begin try close_out temp_file; Sys.remove temp with begin try close_in temp_file; Sys.remove temp with
e -> Printf.eprintf "Failed to remove temp file %s (%s)\n" temp (Printexc.to_string e) e -> Printf.eprintf "Failed to remove temp file %s (%s)\n" temp (Printexc.to_string e)
end; end;
flush stdout (*r For Windows *) flush stdout (*r For Windows *)