From ce7db5350aa34aca12a393a07e366e77f359635c Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 20 Jul 2023 14:06:24 +0100
Subject: [PATCH] Remove old debug

---
 cpdfdraw.ml | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index daccad1..65840f9 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -146,13 +146,9 @@ let process_specials pdf endpage filename bates batespad num page s =
 
 let runs_of_utf8 s =
   let identifier, fontpack = (res ()).current_fontpack in
-  (*Printf.printf "runs_of_utf8: %s\n" identifier;*)
   let codepoints = Pdftext.codepoints_of_utf8 s in
-  (*Printf.printf "%i codepoints\n" (length codepoints);*)
   let triples = option_map (Cpdfembed.get_char fontpack) codepoints in
-  (*Printf.printf "%i triples\n" (length triples);*)
   let collated = Cpdfembed.collate_runs triples in
-    (*Printf.printf "Collated of length %i\n" (length collated);*)
     flatten
      (map
        (fun l ->