Initial squeeze functionality finished
This commit is contained in:
parent
42028ff80a
commit
2c9df6ce6e
|
@ -1781,7 +1781,7 @@ let squeeze pdf =
|
||||||
(fun x -> length x > 1)
|
(fun x -> length x > 1)
|
||||||
(collate (pdfobjeq pdf) (sort (pdfobjeq pdf) !objs))
|
(collate (pdfobjeq pdf) (sort (pdfobjeq pdf) !objs))
|
||||||
in
|
in
|
||||||
Printf.printf "Found %i pools of duplicate objects to coalesce\n" (length toprocess);
|
(*Printf.printf "Found %i pools of duplicate objects to coalesce\n" (length toprocess);*)
|
||||||
(*List.iter
|
(*List.iter
|
||||||
(fun x -> Printf.printf "\n\nPool: "; List.iter (Printf.printf "%i ") x)
|
(fun x -> Printf.printf "\n\nPool: "; List.iter (Printf.printf "%i ") x)
|
||||||
toprocess;*)
|
toprocess;*)
|
||||||
|
|
Loading…
Reference in New Issue