More compatible fix

ocaml-community · Jun 12, 2023 · f2f2aef · f2f2aef
1 parent ba0e2c7
commit f2f2aef
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/lib/uTop_compat.ml b/src/lib/uTop_compat.ml
@@ -89,7 +89,7 @@ let set_load_path path =
 
 let toploop_use_silently fmt name =
 #if OCAML_VERSION >= (4, 14, 0)
-  Toploop.use_silently fmt (File name)
+  Toploop.use_silently fmt (match name with "" -> Stdin | _ -> File name)
 #else
   Toploop.use_silently fmt name
 #endif