From d0b581acab2cd1a544ecd328a2bcadf56dcaf5e3 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 28 Mar 2004 14:52:06 +0000
Subject: 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
---
 kernel/names.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'kernel')

diff --git a/kernel/names.ml b/kernel/names.ml
index 09971cc560..cba4d9d627 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
-- 
cgit v1.2.3