From f0d4d40fa76e53b43696acbe5bee13d386af8e36 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 29 Sep 2022 14:39:43 +0100
Subject: [PATCH] more

---
 cpdftruetype.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/cpdftruetype.ml b/cpdftruetype.ml
index ddc1120..6afd5bf 100644
--- a/cpdftruetype.ml
+++ b/cpdftruetype.ml
@@ -297,10 +297,9 @@ let remove_unneeded_tables major minor tables data =
     newtables;
   let bytes = bytes_of_write_bitstream bs in
     Printf.printf "Made subset font of length %i bytes\n" (bytes_size bytes);
-    let o = open_out_bin "fontout.ttf" in
+    (*let o = open_out_bin "fontout.ttf" in
       output_string o (string_of_bytes bytes);
-      close_out o;
-
+      close_out o;*)
     bytes
 
 let parse ?(subset=[]) data ~encoding =