opt_exit n
let rec interactive_loop () =
- let str = Stream.of_channel stdin in
+ let str = Ulexing.from_utf8_channel stdin in
try
run_script str
(MatitaEngine.eval_from_stream_greedy ~include_paths:!paths_to_search_in)
else
MatitaLog.message (sprintf "execution of %s started:" fname);
let is =
- Stream.of_channel
+ Ulexing.from_utf8_channel
(match fname with
| "stdin" -> stdin
| fname -> open_in fname)