From a2bece3878703166cd6757524a37cc16167940ba Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Sun, 31 May 2015 16:31:08 +0100
Subject: [PATCH] Disambiguate addtext error messages

---
 cpdf.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cpdf.ml b/cpdf.ml
index e34fb6e..1a16b9d 100644
--- a/cpdf.ml
+++ b/cpdf.ml
@@ -1631,9 +1631,9 @@ let addtext
                       | Some fontdict ->
                           begin match Pdf.lookup_direct pdf fontname fontdict with
                           | Some font -> font
-                          | _ -> failwith "addtext: bad font"
+                          | _ -> failwith "addtext: bad font A"
                           end
-                      | _ -> failwith "addtext: bad font"
+                      | _ -> failwith "addtext: bad font B"
                     in
                       let rawwidth = width_of_text (Pdftext.read_font pdf font) text in
                         (rawwidth *. fontsize) /. 1000.