This commit is contained in:
John Whitington 2022-01-08 16:21:28 +00:00
parent c8ce0d5c2b
commit 3e1031d88a
1 changed files with 0 additions and 2 deletions

View File

@ -1,6 +1,5 @@
open Pdfutil
(* Split the given range (which is in order) into multiple contiguous ones. *)
let rec ranges_of_range curr prev = function
| [] -> begin match curr with [] -> rev prev | _ -> rev (rev curr::prev) end
@ -46,4 +45,3 @@ let add_page_labels pdf progress style prefix startval range =
ranges
startval_additions;
Pdfpagelabels.write pdf !labels