diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-28 14:52:06 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-03-28 14:52:06 +0000 |
commit | d0b581acab2cd1a544ecd328a2bcadf56dcaf5e3 (patch) | |
tree | 389a33a7604b2a85a3237346970c767105fcbd6a /kernel | |
parent | 04c2a777ee0b433e536c3ed22e351cb65bf87d9f (diff) |
Désaffectation de l'usage de Top dans Names (maintenant contrôlé dans coqtop.ml)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5592 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
-rw-r--r-- | kernel/names.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index 09971cc56..cba4d9d62 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -254,11 +254,11 @@ module KNpred = Predicate.Make(KNord) module KNset = Set.Make(KNord) -let default_module_name = id_of_string "Top" +let default_module_name = id_of_string "If you see this, it's a bug" let initial_dir = make_dirpath [default_module_name] -let initial_msid = (make_msid initial_dir "Top") +let initial_msid = (make_msid initial_dir "If you see this, it's a bug") let initial_path = MPself initial_msid type variable = identifier |