From bfa71dfcf722dfc0e1f1cd616945cc3e1da9d5ba Mon Sep 17 00:00:00 2001
From: Arnaud Spiwack
Date: Thu, 30 Oct 2014 14:50:59 +0100
Subject: Info: do not record info trace unless needed.

---
 proofs/proofview.ml | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'proofs/proofview.ml')

diff --git a/proofs/proofview.ml b/proofs/proofview.ml
index ba61bf7a5f..0a03965f1d 100644
--- a/proofs/proofview.ml
+++ b/proofs/proofview.ml
@@ -210,7 +210,7 @@ type +'a tactic = 'a Proof.t
 (** Applies a tactic to the current proofview. *)
 let apply env t sp =
   let (next_r,(next_state,_),status,info) =
-    Logic_monad.NonLogical.run (Proof.run t () (sp,env))
+    Logic_monad.NonLogical.run (Proof.run t false (sp,env))
   in
   next_r,next_state,status,Trace.to_tree info
 
@@ -713,11 +713,12 @@ let tclTIMEOUT n t =
      already been computed. *)
   let t = Proof.lift (Logic_monad.NonLogical.return ()) >> t in
   Proof.get >>= fun initial ->
+  Proof.current >>= fun envvar ->
   Proof.lift begin
     Logic_monad.NonLogical.catch
       begin
         let open Logic_monad.NonLogical in
-        timeout n (Proof.run t () initial) >>= fun r ->
+        timeout n (Proof.run t envvar initial) >>= fun r ->
         return (Util.Inl r)
       end
       begin let open Logic_monad.NonLogical in function
@@ -990,6 +991,8 @@ end
 
 module Trace = struct
 
+  let record_info_trace = InfoL.record_trace
+
   let log m = InfoL.leaf (Info.Msg m)
   let name_tactic m t = InfoL.tag (Info.Tactic m) t
 
-- 
cgit v1.2.3