Fix compat with 403
Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
parent
fa3880d2a2
commit
4e9b9d1c66
|
@ -608,6 +608,7 @@ let bind_expressions name phrase =
|
||||||
| Handling of [@@toplevel_printer] attributes |
|
| Handling of [@@toplevel_printer] attributes |
|
||||||
+-----------------------------------------------------------------+ *)
|
+-----------------------------------------------------------------+ *)
|
||||||
|
|
||||||
|
#if OCAML_VERSION >= (4, 04, 0)
|
||||||
let execute_phrase =
|
let execute_phrase =
|
||||||
let new_cmis = ref []in
|
let new_cmis = ref []in
|
||||||
|
|
||||||
|
@ -655,6 +656,12 @@ let execute_phrase =
|
||||||
acknowledge_new_cmis ();
|
acknowledge_new_cmis ();
|
||||||
res
|
res
|
||||||
|
|
||||||
|
#else
|
||||||
|
|
||||||
|
let execute_phrase = Toploop.execute_phrase
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
(* +-----------------------------------------------------------------+
|
(* +-----------------------------------------------------------------+
|
||||||
| Main loop |
|
| Main loop |
|
||||||
+-----------------------------------------------------------------+ *)
|
+-----------------------------------------------------------------+ *)
|
||||||
|
|
Loading…
Reference in New Issue