diff options
| author | filliatr | 2000-10-06 12:14:21 +0000 |
|---|---|---|
| committer | filliatr | 2000-10-06 12:14:21 +0000 |
| commit | 1e4655347b5704cc98709f69c1c0fd05e2cc9e15 (patch) | |
| tree | b3d87d86ff1acb44b7b417f68419ba302519cd30 /library | |
| parent | 3a15da11c0b8f0d26574917cad05fcd4ec69bf4e (diff) | |
correction bug univers (dummy_univ)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@664 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/impargs.ml | 2 | ||||
| -rw-r--r-- | library/lib.ml | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/library/impargs.ml b/library/impargs.ml index 30e4c4e501..242b634f74 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -116,7 +116,7 @@ let init () = var_table := Idmap.empty let freeze () = - (!implicit_args,!constants_table, !inductives_table, !var_table) + (!implicit_args, !constants_table, !inductives_table, !var_table) let unfreeze (imps,ct,it,vt) = implicit_args := imps; diff --git a/library/lib.ml b/library/lib.ml index 387bf41f19..41e6ec6e8b 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -117,6 +117,7 @@ let start_module s = if !module_name <> None then error "a module is already started"; if !path_prefix <> [] then error "some sections are already opened"; module_name := Some s; + Univ.set_module s; let _ = add_anonymous_entry (Module s) in path_prefix := [s] |