Ignore-this: 35a418560754730e6c52f8730ba47b59

darcs-hash:20120220095457-c41ad-50a3a983630fff04845f8ba1cca47b261d897fcd
This commit is contained in:
Jeremie Dimino 2012-02-20 10:54:57 +01:00
parent dcdab7ac0f
commit dbae1b32bc
1 changed files with 1 additions and 1 deletions

View File

@ -55,7 +55,7 @@ let parse_toplevel_phrase_camlp4 str eos_is_error =
let () =
UTop.set_camlp4 true;
UTop.parse_toplevel_phrase := parse_toplevel_phrase_camlp4;
(* Force camlp4 to display its error message. *)
(* Force camlp4 to display its welcome message. *)
try
ignore (!Toploop.parse_toplevel_phrase (Lexing.from_string ""))
with _ ->