From 6731ac797b531ec2db903e7406105f0e30e9c9e2 Mon Sep 17 00:00:00 2001
From: Antonio Nuno Monteiro <anmonteiro@gmail.com>
Date: Sat, 2 Nov 2024 18:36:34 -0700
Subject: [PATCH] disable some fns?

---
 src/vendored-omp/src/caml_format_doc.cppo.ml | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/src/vendored-omp/src/caml_format_doc.cppo.ml b/src/vendored-omp/src/caml_format_doc.cppo.ml
index 889b92daf..940937b6c 100644
--- a/src/vendored-omp/src/caml_format_doc.cppo.ml
+++ b/src/vendored-omp/src/caml_format_doc.cppo.ml
@@ -288,9 +288,10 @@ end
     | Acc_invalid_arg (_p, msg) ->  invalid_arg msg;
     | End_of_acc               -> doc
 
+#if OCAML_VERSION < (4,08,0)
   let kprintf k (CamlinternalFormatBasics.Format (fmt, _))  =
     CamlinternalFormat.make_printf
-      (fun acc doc -> doc |> compose_acc acc |> k )
+      (fun acc doc -> doc |> compose_acc acc |> k)
       End_of_acc fmt
 
   let printf doc = kprintf Fun.id doc
@@ -300,7 +301,7 @@ end
       End_of_acc fmt
 
   let msg fmt = kmsg Fun.id fmt
-
+#endif
 end
 
 (** Compatibility interface *)
@@ -449,6 +450,7 @@ module Driver = struct
     | End_of_acc               -> ()
 end
 
+#if OCAML_VERSION < (4,08,0)
 let kfprintf k ppf (CamlinternalFormatBasics.Format (fmt, _))  =
   CamlinternalFormat.make_printf
     (fun acc -> Driver.output_acc ppf acc; k ppf)
@@ -475,6 +477,7 @@ let kdoc_printf k fmt =
       k doc
     )
     ppf fmt
+#endif
 
 let doc_printer f x doc =
   let r = ref doc in
@@ -490,9 +493,11 @@ let compat = format_printer
 let compat1 f p1 = compat (f p1)
 let compat2 f p1 p2 = compat (f p1 p2)
 
+#if OCAML_VERSION < (4,08,0)
 let kasprintf k fmt =
   kdoc_printf (fun doc -> k (Format.asprintf "%a" Doc.format doc)) fmt
 let asprintf fmt = kasprintf Fun.id fmt
+#endif
 
 let pp_print_iter ?(pp_sep=pp_print_cut) iter elt ppf c =
       let sep = doc_printer pp_sep () in