remove debug printing
This commit is contained in:
parent
43a0109306
commit
d5fbac57f9
|
@ -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 =
|
||||||
|
|
Loading…
Reference in New Issue