more stag stuff

reasonml · Nov 3, 2024 · fe06528 · fe06528
1 parent 1999f3c
commit fe06528
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/vendored-omp/src/caml_format_doc.cppo.ml b/src/vendored-omp/src/caml_format_doc.cppo.ml
@@ -267,7 +267,12 @@ end
     | Acc_formatting_gen (p, Acc_open_tag acc') ->
         let tag = to_string (compose_acc acc' empty) in
         let doc = compose_acc p doc in
-        doc |> open_tag (Format.String_tag tag)
+        doc |>
+#if OCAML_VERSION >= (4,08,0)
+        open_tag (Format.String_tag tag)
+#else
+        open_tag tag
+#endif
     | Acc_formatting_gen (p, Acc_open_box acc') ->
         let doc = compose_acc p doc in
         let box = to_string (compose_acc acc' empty) in