From bd0219b62a60cfc58c3c25858b41a005727c68be Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 13 Apr 2008 21:41:54 +0000
Subject: Bugs, nettoyage, et améliorations diverses - vérification de la
 cohérence des ident pour éviter une option -R   avec des noms non parsables
 (la vérification est faite dans   id_of_string ce qui est très exigeant;
 faudrait-il une solution plus   souple ?) - correction message d'erreur
 inapproprié dans le apply qui descend dans les   conjonctions - nettoyage
 autour de l'échec en présence de métas dans le prim_refiner - nouveau message
 d'erreur quand des variables ne peuvent être instanciées - quelques
 simplifications et davantage de robustesse dans inversion - factorisation du
 code de constructor and co avec celui de econstructor and co

Documentation des tactiques
- edestruct/einduction/ecase/eelim et nouveautés apply
- nouvelle sémantique des intropatterns disjonctifs et documentation des
  pattern -> et <-
- relecture de certaines parties du chapitre tactique


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10785 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 46a44a9b2e..125c9b6de4 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -17,7 +17,7 @@ type identifier = string
 
 let id_ord = Pervasives.compare
 
-let id_of_string s = String.copy s
+let id_of_string s = check_ident s; String.copy s
 
 let string_of_id id = String.copy id
 
@@ -185,7 +185,7 @@ module Cmap = KNmap
 module Cpred = KNpred
 module Cset = KNset
 
-let default_module_name = id_of_string "If you see this, it's a bug"
+let default_module_name = "If you see this, it's a bug"
 
 let initial_dir = make_dirpath [default_module_name]
 
-- 
cgit v1.2.3