diff options
| author | Matthieu Sozeau | 2016-11-07 14:47:15 +0100 |
|---|---|---|
| committer | Matthieu Sozeau | 2016-11-07 14:47:15 +0100 |
| commit | 1f36cdefd841526f804bd2dd51c1d88309333376 (patch) | |
| tree | 9d13ea499cfebf6285eccc6d8b434bcf5ea9e41b /engine | |
| parent | a4cecc13cde3239d6a86f98ba6bba0e4554306bd (diff) | |
Fixes to compile with ocaml 4.01
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/termops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index 35cacc65b2..697b9a5f15 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -980,7 +980,7 @@ let smash_rel_context sign = let fold_named_context_both_sides f l ~init = List.fold_right_and_left f l init let mem_named_context_val id ctxt = - try Environ.lookup_named_val id ctxt; true with Not_found -> false + try ignore(Environ.lookup_named_val id ctxt); true with Not_found -> false let compact_named_context_reverse sign = let compact l decl = |