Initial squeeze functionality finished

This commit is contained in:
John Whitington 2014-09-11 14:09:55 +01:00
parent 42028ff80a
commit 2c9df6ce6e
1 changed files with 1 additions and 1 deletions

View File

@ -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;*)