diff options
| author |  coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-09 14:23:54 +0000 |
|---|---|---|
| committer | coq <coq@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-12-09 14:23:54 +0000 |
| commit | 6da9a56628903d0bc2ab6a336af822f362517c4f (patch) | |
| tree | e0ae5f32406a7a777827371a0a5bfae45a735acb /library/global.ml | |
| parent | 5cabd686fcb61633d372b1414c5a3759136ed28d (diff) | |
Corrections de gestion des univers et modules + meilleure gestions des noms uniques
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3405 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/global.ml')
| -rw-r--r-- | library/global.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/global.ml b/library/global.ml index cdebc52f5..4824f0b2f 100644 --- a/library/global.ml +++ b/library/global.ml @@ -69,9 +69,9 @@ let add_constraints c = global_env := add_constraints c !global_env -let start_module dir id params mtyo = +let start_module id params mtyo = let l = label_of_id id in - let mp,newenv = start_module dir l params mtyo !global_env in + let mp,newenv = start_module l params mtyo !global_env in global_env := newenv; mp @@ -82,9 +82,9 @@ let end_module id = mp -let start_modtype dir id params = +let start_modtype id params = let l = label_of_id id in - let mp,newenv = start_modtype dir l params !global_env in + let mp,newenv = start_modtype l params !global_env in global_env := newenv; mp |