Fix compat with 403

Signed-off-by: Jeremie Dimino <[email protected]>
ocaml-community · Jan 24, 2019 · 4e9b9d1 · 4e9b9d1
1 parent fa3880d
commit 4e9b9d1
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/lib/uTop_main.ml b/src/lib/uTop_main.ml
@@ -608,6 +608,7 @@ let bind_expressions name phrase =
    | Handling of [@@toplevel_printer] attributes                     |
    +-----------------------------------------------------------------+ *)
 
+#if OCAML_VERSION >= (4, 04, 0)
 let execute_phrase =
   let new_cmis = ref []in
 
@@ -655,6 +656,12 @@ let execute_phrase =
     acknowledge_new_cmis ();
     res
 
+#else
+
+let execute_phrase = Toploop.execute_phrase
+
+#endif
+
 (* +-----------------------------------------------------------------+
    | Main loop                                                       |
    +-----------------------------------------------------------------+ *)