diff options
| author | herbelin | 2009-12-03 23:09:05 +0000 |
|---|---|---|
| committer | herbelin | 2009-12-03 23:09:05 +0000 |
| commit | 7533b5b51bfaa580fb237591b0fc747e0172526d (patch) | |
| tree | 87f50625f2800903053eacc3d136a106402a2522 /pretyping | |
| parent | add340bfaa3fed3ae77956c510c291ed4f9b8646 (diff) | |
Still continuing r12485-12486, r12549, r12556 (cleaning around name generation)
Removed one more bug in simplification of visibly_occur_id in r12549
+ improved CHANGES message
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12561 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/namegen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/namegen.ml b/pretyping/namegen.ml index c4349624fe..7d141faf1e 100644 --- a/pretyping/namegen.ml +++ b/pretyping/namegen.ml @@ -225,7 +225,7 @@ let make_all_name_different env = let visibly_occur_id id c = let rec occur c = match kind_of_term c with - | Const _ | Ind _ | Construct _ + | Const _ | Ind _ | Construct _ | Var _ when shortest_qualid_of_global Idset.empty (global_of_constr c) = qualid_of_ident id -> raise Occur | _ -> iter_constr occur c |