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

Env.Env_copy_types should work also on OCaml 4.06

This commit is contained in:
Anton Kochkov 2018-08-30 13:20:07 +08:00 committed by Perry E. Metzger
parent cf8e423f58
commit 53db99356e
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/lib/uTop_complete.ml
View File

@ -541,10 +541,12 @@ let list_global_names () =
| Env.Env_constraints (summary, _) -> | Env.Env_constraints (summary, _) ->
loop acc summary loop acc summary
#endif #endif
#if OCAML_VERSION >= (4, 07, 0) #if OCAML_VERSION >= (4, 06, 0)
| Env.Env_copy_types (summary, _) -> | Env.Env_copy_types (summary, _) ->
loop acc summary loop acc summary
| Env.Env_open(summary, _skip, path) -> #endif
#if OCAML_VERSION >= (4, 07, 0)
| Env.Env_open(summary, _, path) ->
#else #else
| Env.Env_open(summary, path) -> | Env.Env_open(summary, path) ->
#endif #endif
@ -610,10 +612,12 @@ let list_global_fields () =
| Env.Env_constraints (summary, _) -> | Env.Env_constraints (summary, _) ->
loop acc summary loop acc summary
#endif #endif
#if OCAML_VERSION >= (4, 07, 0) #if OCAML_VERSION >= (4, 06, 0)
| Env.Env_copy_types (summary, _) -> | Env.Env_copy_types (summary, _) ->
loop acc summary loop acc summary
| Env.Env_open(summary, _skip, path) -> #endif
#if OCAML_VERSION >= (4, 07, 0)
| Env.Env_open(summary, _, path) ->
#else #else
| Env.Env_open(summary, path) -> | Env.Env_open(summary, path) ->
#endif #endif