From 15a6883f007acfb1607689278596709516116805 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 21 Apr 2023 15:15:06 +0100
Subject: [PATCH] more

---
 cpdfannot.ml | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/cpdfannot.ml b/cpdfannot.ml
index 3ffcd84..d559af1 100644
--- a/cpdfannot.ml
+++ b/cpdfannot.ml
@@ -157,14 +157,15 @@ let set_annotations_json pdf i =
   | `List entries ->
       (* Renumber the PDF so everything has bigger object numbers than that. *)
       let maxobjnum =
-        fold_left
-          max
-          min_int
-          (map (fun e -> match e with `List [_; `Int i; _] -> i | `List [`Int i; _] -> abs i | _ -> error "Bad annots entry") entries)
-      in
-      let pdf_objnums =
-        map fst (list_of_hashtbl pdf.Pdf.objects.Pdf.pdfobjects)
+        fold_left max min_int
+          (map
+            (function
+             | `List [_; `Int i; _] -> i
+             | `List [`Int i; _] -> abs i
+             | _ -> error "Bad annots entry")
+           entries)
       in
+      let pdf_objnums = map fst (list_of_hashtbl pdf.Pdf.objects.Pdf.pdfobjects) in
       let change_table =
         hashtable_of_dictionary (map2 (fun f t -> (f, t)) pdf_objnums (ilist (maxobjnum + 1) (maxobjnum + length pdf_objnums)))
       in