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
---
 pretyping/syntax_def.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'pretyping/syntax_def.ml')

diff --git a/pretyping/syntax_def.ml b/pretyping/syntax_def.ml
index f90627f7e9..4801d017e7 100644
--- a/pretyping/syntax_def.ml
+++ b/pretyping/syntax_def.ml
@@ -14,7 +14,8 @@ let _ = Summary.declare_summary
 	  "SYNTAXCONSTANT"
 	  { Summary.freeze_function = (fun () -> !syntax_table);
 	    Summary.unfreeze_function = (fun ft -> syntax_table := ft);
-	    Summary.init_function = (fun () -> syntax_table := Spmap.empty) }
+	    Summary.init_function = (fun () -> syntax_table := Spmap.empty);
+	    Summary.survive_section = false }
 
 let add_syntax_constant sp c =
   syntax_table := Spmap.add sp c !syntax_table
-- 
cgit v1.2.3