diff options
| author | filliatr | 2000-11-21 17:05:46 +0000 |
|---|---|---|
| committer | filliatr | 2000-11-21 17:05:46 +0000 |
| commit | b4636d4cd6fc5d20aca23841e4e0139243cc371b (patch) | |
| tree | c309c295860ba8bcb1b0aad6cfac97bc56c81c7f | |
| parent | cb5af55e2500748daa62c11f92c53f72e37d49c4 (diff) | |
ajout d'un frozen_state après la fermeture d'une section (sinon bug !)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@906 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | library/lib.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/lib.ml b/library/lib.ml index 5e687b9707..712292812d 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -154,7 +154,8 @@ let close_section export f s = add_entry (make_path (id_of_string s) OBJ) (ClosedSection (export, s,after',contents)); Nametab.push_module s contents; - if export then Nametab.open_module_contents s + if export then Nametab.open_module_contents s; + add_frozen_state () (* The following function exports the whole library segment, that will be saved as a module. Objects are presented in chronological order, and |