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

Fix compatibility with 4.02.

This commit is contained in:
Peter Zotov 2014-08-07 15:31:05 +04:00
parent 87b0ca1807
commit 1541f25520
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/lib/uTop_main.ml
View File

@ -92,7 +92,8 @@ let parse_and_check input eos_is_error =
#if ocaml_version >= (4, 02, 0) #if ocaml_version >= (4, 02, 0)
| UTop.Value (Parsetree.Ptop_def pstr) -> | UTop.Value (Parsetree.Ptop_def pstr) ->
begin try begin try
let pstr = Pparse.apply_rewriters Config.ast_impl_magic_number pstr in let pstr = Pparse.apply_rewriters ~tool_name:"ocaml"
Config.ast_impl_magic_number pstr in
UTop.Value (Parsetree.Ptop_def pstr) UTop.Value (Parsetree.Ptop_def pstr)
with Pparse.Error error -> with Pparse.Error error ->
Pparse.report_error Format.str_formatter error; Pparse.report_error Format.str_formatter error;