diff --git a/src/lib/uTop.ml b/src/lib/uTop.ml index c827d52..8510ac2 100644 --- a/src/lib/uTop.ml +++ b/src/lib/uTop.ml @@ -854,11 +854,16 @@ let () = +-----------------------------------------------------------------+ *) #if OCAML_VERSION >= (4, 08, 0) -let get_load_path ()= Load_path.get_paths () -let set_load_path path= Load_path.init path +let get_load_path () = Load_path.get_paths () +#if OCAML_VERSION >= (5, 0, 0) +let set_load_path path = + Load_path.init path ~auto_include:Load_path.no_auto_include #else -let get_load_path ()= !Config.load_path -let set_load_path path= Config.load_path := path +let set_load_path path = Load_path.init path +#endif +#else +let get_load_path () = !Config.load_path +let set_load_path path = Config.load_path := path #endif (* +-----------------------------------------------------------------+ diff --git a/src/lib/uTop_main.ml b/src/lib/uTop_main.ml index 07da94a..81e4f2a 100644 --- a/src/lib/uTop_main.ml +++ b/src/lib/uTop_main.ml @@ -1371,7 +1371,11 @@ let emacs_mode = ref false let preload = ref [] let prepare () = +#if OCAML_VERSION >= (5, 0, 0) + Toploop.set_paths ~auto_include:Load_path.no_auto_include (); +#else Toploop.set_paths (); +#endif try let ok = List.for_all