From 0bee8c9297682d39ed6afa1c666868c21b9da688 Mon Sep 17 00:00:00 2001
From: "Hezekiah M. Carty" <hez@0ok.org>
Date: Fri, 22 Jun 2018 17:05:50 -0600
Subject: [PATCH] Minimal update to make utop build on OCaml 4.07.0+rc1 (#238)

---
 src/lib/uTop_complete.ml | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/lib/uTop_complete.ml b/src/lib/uTop_complete.ml
index 0f7b214..5d2aafa 100644
--- a/src/lib/uTop_complete.ml
+++ b/src/lib/uTop_complete.ml
@@ -541,7 +541,13 @@ let list_global_names () =
     | Env.Env_constraints (summary, _) ->
         loop acc summary
 #endif
+#if OCAML_VERSION >= (4, 07, 0)
+    | Env.Env_copy_types (summary, _) ->
+        loop acc summary
+    | Env.Env_open(summary, _skip, path) ->
+#else
     | Env.Env_open(summary, path) ->
+#endif
         match try Some (Path_map.find path !local_names_by_path) with Not_found -> None with
           | Some names ->
               loop (String_set.union acc names) summary
@@ -604,7 +610,13 @@ let list_global_fields () =
     | Env.Env_constraints (summary, _) ->
         loop acc summary
 #endif
+#if OCAML_VERSION >= (4, 07, 0)
+    | Env.Env_copy_types (summary, _) ->
+        loop acc summary
+    | Env.Env_open(summary, _skip, path) ->
+#else
     | Env.Env_open(summary, path) ->
+#endif
         match try Some (Path_map.find path !local_fields_by_path) with Not_found -> None with
           | Some fields ->
               loop (String_set.union acc fields) summary