Skip to content

Commit 098a644

Browse files
Fix the lower OCaml version boundaries
1 parent d783566 commit 098a644

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

lib/top/compat_top.ml

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -204,7 +204,7 @@ let mdx_install_printer = patch_directive "install_printer" (Directive_ident (To
204204
let 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

209209
let 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

233233
let 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 *)
237237
let 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

Comments
 (0)