fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more

This commit is contained in:
John Whitington 2023-05-11 14:39:37 +01:00
parent f78b5807f8
commit 4e52b75f72
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cpdfdraw.ml
View File

@ -307,7 +307,7 @@ let draw ~filename ~bates ~batespad fast range pdf drawops =
let pdf = ref pdf in let pdf = ref pdf in
let range = ref range in let range = ref range in
(* Double up a trailing NewPage so it actually does something... *) (* Double up a trailing NewPage so it actually does something... *)
let drawops = match rev drawops with NewPage::t -> rev (NewPage::NewPage::t) | l -> l in let drawops = match rev drawops with NewPage::t -> rev (NewPage::NewPage::t) | _ -> drawops in
let chunks = ref (split_around (eq NewPage) drawops) in let chunks = ref (split_around (eq NewPage) drawops) in
while !chunks <> [] do while !chunks <> [] do
reset_state (); reset_state ();