Fix compatibility with 4.02.
This commit is contained in:
parent
87b0ca1807
commit
1541f25520
|
@ -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;
|
||||||
|
|
Loading…
Reference in New Issue