From 1e4655347b5704cc98709f69c1c0fd05e2cc9e15 Mon Sep 17 00:00:00 2001
From: filliatr
Date: Fri, 6 Oct 2000 12:14:21 +0000
Subject: correction bug univers (dummy_univ)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@664 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/impargs.ml | 2 +-
 library/lib.ml     | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'library')

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]
 
-- 
cgit v1.2.3