diff options
author | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-07 15:36:10 +0000 |
---|---|---|
committer | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-07 15:36:10 +0000 |
commit | e7f9bc39ab4e879b521439901ed99bf3382bd40a (patch) | |
tree | 763aa02aaa6cacdf72ed13f56eae4ab243608f99 /contrib/extraction/table.ml | |
parent | 12d83b6915b3a4c76c18cc612ad8628cec787c68 (diff) |
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
Diffstat (limited to 'contrib/extraction/table.ml')
-rw-r--r-- | contrib/extraction/table.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/contrib/extraction/table.ml b/contrib/extraction/table.ml index a7ed13863..529a8e339 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. *) |