From f78b5807f8fd8b322d59f953e7b4f6e396e27843 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Wed, 10 May 2023 19:11:31 +0100
Subject: [PATCH] more

---
 cpdfdraw.ml | 4 +++-
 cpdfpad.ml  | 1 -
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index 2b09fd9..8f09656 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -306,10 +306,12 @@ let draw ~filename ~bates ~batespad fast range pdf drawops =
   (res ()).time <- Cpdfstrftime.current_time ();
   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 chunks = ref (split_around (eq NewPage) drawops) in
     while !chunks <> [] do
       reset_state ();
-      pdf := draw_single ~filename ~bates ~batespad fast !range !pdf (hd !chunks);
+      if hd !chunks <> [] then pdf := draw_single ~filename ~bates ~batespad fast !range !pdf (hd !chunks);
       chunks := tl !chunks;
       if !chunks <> [] then begin
         let endpage = Pdfpage.endpage !pdf in
diff --git a/cpdfpad.ml b/cpdfpad.ml
index cb2f6aa..a79b76b 100644
--- a/cpdfpad.ml
+++ b/cpdfpad.ml
@@ -101,4 +101,3 @@ let padmultiple n pdf =
               Pdfpage.change_pages ~changes true pdf (if neg then blankpages @ pages else pages @ blankpages)
         else
           pdf
-