Correction du bug 335 et Export/Require Export dans un module

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4534 85f007b7-540e-0410-9357-904b9bb8a0f7

5 files changed, 7 insertions, 1 deletions

diff --git a/contrib/correctness/penv.ml b/contrib/correctness/penv.ml
index 6d96df032a..237df88a2f 100644
--- a/contrib/correctness/penv.ml
+++ b/contrib/correctness/penv.ml
@@ -100,6 +100,7 @@ Summary.declare_summary "programs-environment"
   { Summary.freeze_function = freeze;
     Summary.unfreeze_function = unfreeze;
     Summary.init_function = init;
+    Summary.survive_module = false;
     Summary.survive_section = false }
 ;;
 
diff --git a/contrib/extraction/table.ml b/contrib/extraction/table.ml
index a7ed138632..529a8e3396 100644
--- a/contrib/extraction/table.ml
+++ b/contrib/extraction/table.ml
@@ -234,6 +234,7 @@ let _ = declare_summary "Extraction Lang"
 	  { freeze_function = (fun () -> !lang_ref);
 	    unfreeze_function = ((:=) lang_ref);
 	    init_function = (fun () -> lang_ref := Ocaml);
+	    survive_module = false;
 	    survive_section = true }  
 
 let extraction_language x = Lib.add_anonymous_leaf (extr_lang x)
@@ -269,6 +270,7 @@ let _ = declare_summary "Extraction Inline"
 	  { freeze_function = (fun () -> !inline_table);
 	    unfreeze_function = ((:=) inline_table);
 	    init_function = (fun () -> inline_table := empty_inline_table);
+	    survive_module = false;
 	    survive_section = true }
 
 (* Grammar entries. *)
@@ -340,6 +342,7 @@ let _ = declare_summary "ML extractions"
 	  { freeze_function = (fun () -> !customs);
 	    unfreeze_function = ((:=) customs);
 	    init_function = (fun () -> customs := Refmap.empty);
+	    survive_module = false;
 	    survive_section = true }
 
 (* Grammar entries. *)
diff --git a/contrib/field/field.ml4 b/contrib/field/field.ml4
index c5ec4df879..437fb0fff8 100644
--- a/contrib/field/field.ml4
+++ b/contrib/field/field.ml4
@@ -53,6 +53,7 @@ let _ =
     { Summary.freeze_function   = freeze;
       Summary.unfreeze_function = unfreeze;
       Summary.init_function     = init;
+      Summary.survive_module = false;
       Summary.survive_section   = false }
 
 let load_addfield _ = ()
diff --git a/contrib/interface/parse.ml b/contrib/interface/parse.ml
index 26c76e5945..b46d15c4b4 100644
--- a/contrib/interface/parse.ml
+++ b/contrib/interface/parse.ml
@@ -433,7 +433,7 @@ let load_syntax_action reqid module_name =
       (let qid = Libnames.make_short_qualid (Names.id_of_string module_name) in
       read_library (dummy_loc,qid);
       msg (str "opening... ");
-      Declaremods.import_module (Nametab.locate_module qid); 
+      Declaremods.import_module false (Nametab.locate_module qid); 
       msgnl (str "done" ++ fnl ());
       ())
  with
diff --git a/contrib/ring/ring.ml b/contrib/ring/ring.ml
index ac3274ae76..f73cc164b0 100644
--- a/contrib/ring/ring.ml
+++ b/contrib/ring/ring.ml
@@ -181,6 +181,7 @@ let _ =
     { Summary.freeze_function = (fun () -> !theories_map);
       Summary.unfreeze_function = (fun t -> theories_map := t);
       Summary.init_function = (fun () -> theories_map := Cmap.empty);
+      Summary.survive_module = false;
       Summary.survive_section = false }
 
 (* declare a new type of object in the environment, "tactic-ring-theory"