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 /kernel/names.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 'kernel/names.ml')
| -rw-r--r-- | kernel/names.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index f25e6680d..7b0078392 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -246,9 +246,12 @@ module KNpred = Predicate.Make(KNord) module KNset = Set.Make(KNord) -let initial_msid = (make_msid [] "TOP") -let initial_path = MPself initial_msid +let default_module_name = id_of_string "Top" + +let initial_dir = make_dirpath [default_module_name] +let initial_msid = (make_msid initial_dir "Top") +let initial_path = MPself initial_msid type variable = identifier type constant = kernel_name |