diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-09-28 22:04:36 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2007-09-28 22:04:36 +0000 |
commit | 38a70c48e843dd5da4120ed14148663cba094851 (patch) | |
tree | d2736e70442898675b1cbb1f9517504b249188d4 /tactics/tacinterp.ml | |
parent | 98173ac0762d6e1d8b47606f77d4ac1527fe8f9b (diff) |
On empêche "fresh" d'engendrer un mot-clé.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10154 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/tacinterp.ml')
-rw-r--r-- | tactics/tacinterp.ml | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 884afebb9..15b6f7abd 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1273,9 +1273,12 @@ let interp_fresh_id ist gl l = let id = if l = [] then default_fresh_id else - id_of_string (String.concat "" (List.map (function - | ArgArg s -> s - | ArgVar (_,id) -> string_of_id (interp_ident ist gl id)) l)) in + let s = + String.concat "" (List.map (function + | ArgArg s -> s + | ArgVar (_,id) -> string_of_id (interp_ident ist gl id)) l) in + let s = if Lexer.is_keyword s then s^"0" else s in + id_of_string s in Tactics.fresh_id avoid id gl (* To retype a list of key*constr with undefined key *) |