haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

silence camlp4

This commit is contained in:
Jeremie Dimino 2014-04-24 09:11:19 +01:00
parent 98334b8883
commit 5be7134436
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/camlp4/uTop_camlp4.ml
View File

@ -118,8 +118,13 @@ let parse_use_file str eos_is_error =
let () = let () =
UTop.parse_toplevel_phrase := parse_toplevel_phrase; UTop.parse_toplevel_phrase := parse_toplevel_phrase;
UTop.parse_use_file := parse_use_file; UTop.parse_use_file := parse_use_file;
(* Force camlp4 to display its welcome message. *) (* So that camlp4 doesn't display its welcome message. *)
try let interactive = !Sys.interactive in
ignore (!Toploop.parse_toplevel_phrase (Lexing.from_string "")) Sys.interactive := false;
with _ -> let () =
() try
ignore (!Toploop.parse_toplevel_phrase (Lexing.from_string ""))
with _ ->
()
in
Sys.interactive := interactive