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

Fix compat with 403 

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
Jeremie Dimino 2019-01-16 08:59:48 +00:00 committed by Perry E. Metzger
parent fa3880d2a2
commit 4e9b9d1c66
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/lib/uTop_main.ml
View File

@ -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 |
+-----------------------------------------------------------------+ *)