This commit is contained in:
John Whitington 2023-05-02 16:09:10 +01:00
parent d0cdba9c1e
commit a622c76bbd
1 changed files with 1 additions and 2 deletions

View File

@ -3,8 +3,7 @@ open Pdfutil
let emptypage = Pdfpage.blankpage Pdfpaper.a4 let emptypage = Pdfpage.blankpage Pdfpaper.a4
let error s = let error s =
Pdfe.log (s ^ "\nUse -help for help.\n"); raise (Pdf.PDFError s)
exit 2
(* Unit conversions to points. *) (* Unit conversions to points. *)
let mm x = ((x /. 10.) /. 2.54) *. 72. let mm x = ((x /. 10.) /. 2.54) *. 72.