From 0c68df5ccdacb5d2ed50b533ad613723914dfee7 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Fri, 24 Nov 2000 16:13:28 +0000
Subject: certains effets disparaissent a la sortie des sections, d'autres non
 (selon Summary.survive_section)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@945 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/tacinterp.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'proofs')

diff --git a/proofs/tacinterp.ml b/proofs/tacinterp.ml
index 422d412223..4cd1641b1e 100644
--- a/proofs/tacinterp.ml
+++ b/proofs/tacinterp.ml
@@ -169,7 +169,8 @@ let _ =
   Summary.declare_summary "tactic-definition"
     { Summary.freeze_function   = freeze;
       Summary.unfreeze_function = unfreeze;
-      Summary.init_function     = init }
+      Summary.init_function     = init;
+      Summary.survive_section   = false }
 
 (* Unboxes the tactic_arg *)
 let unvarg = function
-- 
cgit v1.2.3