Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix the native toplevel too...

master
David Allsopp 2020-04-17 16:54:37 +01:00
parent b14539572a
commit 221fee0d85
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
toplevel/opttoploop.ml
View File

@ -490,16 +490,16 @@ let use_output ppf command =
fprintf ppf "Command exited with code %d.@." n;
false)
let use_file ppf wrap_mode name =
let use_file ppf wrap_mod name =
match name with
| "" ->
use_channel ppf wrap_mode stdin name "(stdin)"
use_channel ppf wrap_mod stdin name "(stdin)"
| _ ->
match Load_path.find name with
| filename ->
let ic = open_in_bin filename in
Misc.try_finally ~always:(fun () -> close_in ic)
(fun () -> use_channel ppf false ic name filename)
(fun () -> use_channel ppf wrap_mod ic name filename)
| exception Not_found ->
fprintf ppf "Cannot find file %s.@." name;
false