diff options
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] |