From 4e52b75f72434877cc2f741e7758672fef6e9c40 Mon Sep 17 00:00:00 2001 From: John Whitington Date: Thu, 11 May 2023 14:39:37 +0100 Subject: [PATCH] more --- cpdfdraw.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cpdfdraw.ml b/cpdfdraw.ml index 8f09656..89f45cd 100644 --- a/cpdfdraw.ml +++ b/cpdfdraw.ml @@ -307,7 +307,7 @@ let draw ~filename ~bates ~batespad fast range pdf drawops = let pdf = ref pdf in let range = ref range in (* 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 while !chunks <> [] do reset_state ();