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

s/wrap_mode/wrap_mod/

master
David Allsopp 2020-04-17 16:48:56 +01:00
parent 528bd78c25
commit b14539572a
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/toploop.ml
View File

@ -436,16 +436,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 wrap_mode ic name filename)
(fun () -> use_channel ppf wrap_mod ic name filename)
| exception Not_found ->
fprintf ppf "Cannot find file %s.@." name;
false