From e54868a64bf7a146e2903a9f64f27f93a4854f78 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Sat, 15 Apr 2023 21:33:15 +0100
Subject: [PATCH] more

---
 cpdfcomposition.ml | 2 --
 1 file changed, 2 deletions(-)

diff --git a/cpdfcomposition.ml b/cpdfcomposition.ml
index 489ccea..aa9b9eb 100644
--- a/cpdfcomposition.ml
+++ b/cpdfcomposition.ml
@@ -7,7 +7,6 @@ let find_composition_structure_info pdf marked =
       | Some x ->
           let l = ref [] in
           let objs = Pdf.objects_referenced ["/Pg"] [] pdf x in
-            Printf.printf "Found %i struct tree items\n" (length objs);
             iter
               (fun i ->
                  match Hashtbl.find marked i with
@@ -122,7 +121,6 @@ let compressed_xref_table_size pdf =
   if Hashtbl.length pdf.Pdf.objects.Pdf.object_stream_ids = 0 then 20 * Pdf.objcard pdf else
     compressed_size pdf (map fst (list_of_hashtbl pdf.Pdf.objects.Pdf.object_stream_ids))
 
-(* First go: images, fonts, content streams, structure info, link annotations, embedded files *)
 let show_composition_json filesize pdf =
   let perc x = float_of_int x /. float_of_int filesize *. 100. in
   let o_images, o_fonts, o_content_streams, o_structure_info, o_embedded_files = find_composition pdf in