@@ -204,7 +204,7 @@ let mdx_install_printer = patch_directive "install_printer" (Directive_ident (To
204204let mdx_remove_printer = patch_directive " remove_printer" (Directive_ident (Topdirs. dir_remove_printer std_err))
205205#endif
206206
207- #if OCAML_VERSION > (4 , 11 , 0 ) && OCAML_VERSION < (4 , 14 , 0 )
207+ #if OCAML_VERSION > = (4 , 11 , 0 ) && OCAML_VERSION < (4 , 14 , 0 )
208208
209209let dir_use_output ppf name =
210210 action_on_suberror (Toploop. use_output ppf name)
@@ -232,7 +232,7 @@ let dir_load_rec ppf name =
232232
233233let mdx_load_rec = patch_directive " load_rec" (Directive_string (dir_load_rec std_err))
234234
235- #elif OCAML_VERSION > (4 , 13 , 0 ) && OCAML_VERSION < (4 , 14 , 0 )
235+ #elif OCAML_VERSION > = (4 , 13 , 0 ) && OCAML_VERSION < (4 , 14 , 0 )
236236(* OCaml 4.13 exposes [Topeval.load_file] which allows us to patch [#load] too *)
237237let dir_load ppf name =
238238 action_on_suberror (Topeval. load_file false ppf name)
@@ -255,7 +255,7 @@ let redirect_directive directive =
255255 | "install_printer" -> mdx_install_printer
256256 | "remove_printer" -> mdx_remove_printer
257257#endif
258- #if OCAML_VERSION > (4 , 11 , 0 ) && OCAML_VERSION < (4 , 14 , 0 )
258+ #if OCAML_VERSION > = (4 , 11 , 0 ) && OCAML_VERSION < (4 , 14 , 0 )
259259 | "use_output" -> mdx_use_output
260260#endif
261261#if OCAML_VERSION < (4 , 13 , 0 )
0 commit comments