From 462e5b50351e38cc3a44486680e0aacbc08fb317 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Tue, 8 Apr 2025 16:33:03 +0100
Subject: [PATCH] G4 skeleton

---
 cpdfimage.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cpdfimage.ml b/cpdfimage.ml
index d751f65..6320b33 100644
--- a/cpdfimage.ml
+++ b/cpdfimage.ml
@@ -894,7 +894,7 @@ let recompress_1bpp_ccittg4_lossless ~pixel_threshold ~length_threshold pdf s di
           restore ()
       | None ->
         let data = match s with Pdf.Stream {contents = _, Pdf.Got d} -> d | _ -> assert false in
-        let compressed = Pdfcodec.encode_ccitt w data in
+        let compressed = Pdfcodec.encode_ccittg4 w data in
         let newsize = bytes_size compressed in
           if newsize < size then
             begin