From 79a25a71dd3519d8e7a6bd9f3a004c7c0da3a1b5 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 13 Aug 2009 19:10:11 +0000
Subject: Death of "survive_module" and "survive_section" (the first one was
 only used to allow a module to be ended before the summaries were restored
 what can be solved by moving upwards the place where the summaries are
 restored).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12275 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/setoid_ring/newring.ml4 | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'plugins/setoid_ring')

diff --git a/plugins/setoid_ring/newring.ml4 b/plugins/setoid_ring/newring.ml4
index 24cb84ed56..14fd9192e9 100644
--- a/plugins/setoid_ring/newring.ml4
+++ b/plugins/setoid_ring/newring.ml4
@@ -389,9 +389,7 @@ let _ =
       Summary.init_function =
         (fun () ->
           from_carrier := Cmap.empty; from_relation := Cmap.empty;
-          from_name := Spmap.empty);
-      Summary.survive_module = false;
-      Summary.survive_section = false }
+          from_name := Spmap.empty) }
 
 let add_entry (sp,_kn) e =
 (*  let _ = ty e.ring_lemma1 in
@@ -971,9 +969,7 @@ let _ =
       Summary.init_function =
         (fun () ->
           field_from_carrier := Cmap.empty; field_from_relation := Cmap.empty;
-          field_from_name := Spmap.empty);
-      Summary.survive_module = false;
-      Summary.survive_section = false }
+          field_from_name := Spmap.empty) }
 
 let add_field_entry (sp,_kn) e =
 (*
-- 
cgit v1.2.3