From 1f36cdefd841526f804bd2dd51c1d88309333376 Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Mon, 7 Nov 2016 14:47:15 +0100
Subject: Fixes to compile with ocaml 4.01

---
 engine/termops.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'engine')

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 =
-- 
cgit v1.2.3