remove debug printing

This commit is contained in:
John Whitington 2023-07-21 14:28:11 +01:00
parent 43a0109306
commit d5fbac57f9
1 changed files with 0 additions and 2 deletions

View File

@ -357,7 +357,6 @@ let addtext
let newresources = let newresources =
match fontpack with match fontpack with
| Some fontpack -> | Some fontpack ->
Printf.printf "New resources: a fontpack!\n";
let newfontdict = let newfontdict =
let fd = ref fontdict in let fd = ref fontdict in
iter2 iter2
@ -369,7 +368,6 @@ let addtext
in in
Pdf.add_dict_entry resources' "/Font" newfontdict Pdf.add_dict_entry resources' "/Font" newfontdict
| None -> | None ->
Printf.printf "New resources: no fontpack!\n";
match font with match font with
| Some (Pdftext.StandardFont _ as font) -> | Some (Pdftext.StandardFont _ as font) ->
let newfontdict = let newfontdict =