Should not initialize predicate with OCaml <4.08.0

We cannot know which modules have already been loaded.
thierry-martinez · Feb 27, 2020 · 0965009 · 0965009
1 parent e49253f
commit 0965009
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ppx/findlib_for_ppx.ml b/ppx/findlib_for_ppx.ml
@@ -1,7 +1,7 @@
 (* See https://github.com/ocaml/dune/issues/3214 *)
 
 let init_predicates () =
-  if Findlib.recorded_predicates () = [] then
+  if Sys.ocaml_version < "4.08.0" && Findlib.recorded_predicates () = [] then
     let preds = ["ppx_driver"; "mt"; "mt_posix"] in
     let preds = (if Dynlink.is_native then "native" else "byte") :: preds in
     Findlib.record_package_predicates preds