From bbec61be495db3de93fc17830405b6d80a271496 Mon Sep 17 00:00:00 2001
From: Matej Kosik <matej.kosik@inria.fr>
Date: Fri, 3 Feb 2017 09:02:41 +0100
Subject: "tclENV" is sexier, use it instead of "Env.get"

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

(limited to 'engine/proofview.ml')

diff --git a/engine/proofview.ml b/engine/proofview.ml
index 1181d2bab..f054038e9 100644
--- a/engine/proofview.ml
+++ b/engine/proofview.ml
@@ -1040,7 +1040,7 @@ module Goal = struct
   let nf_enter f =
     InfoL.tag (Info.Dispatch) begin
     iter_goal begin fun goal ->
-      Env.get >>= fun env ->
+      tclENV >>= fun env ->
       tclEVARMAP >>= fun sigma ->
       try
         let (gl, sigma) = nf_gmake env sigma goal in
-- 
cgit v1.2.3