This commit is contained in:
John Whitington 2022-01-04 12:52:44 +00:00
parent b5e16382e8
commit dface55e76

View File

@ -215,7 +215,7 @@ let parse_rectangle pdf s =
| [x; y; w; h] -> x, y, w, h | [x; y; w; h] -> x, y, w, h
| _ -> error ("Bad rectangle specification " ^ s) | _ -> error ("Bad rectangle specification " ^ s)
with with
_ -> error ("Bad rectangle specification " ^ s) e -> error ("Bad rectangle specification " ^ s ^ " : " ^ Printexc.to_string e)
let parse_rectangles pdf s = let parse_rectangles pdf s =
try try
@ -227,7 +227,7 @@ let parse_rectangles pdf s =
| _ -> error ("Bad rectangle specification " ^ s)) | _ -> error ("Bad rectangle specification " ^ s))
groups groups
with with
_ -> error ("Bad rectangle specification " ^ s) e -> error ("Bad rectangle specification " ^ s ^ " : " ^ Printexc.to_string e)
let parse_coordinate pdf s = let parse_coordinate pdf s =
try try