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

typo 

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/camlp4/uTop_camlp4.ml
View File

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