diff options
| author | herbelin | 2003-11-19 14:31:51 +0000 |
|---|---|---|
| committer | herbelin | 2003-11-19 14:31:51 +0000 |
| commit | cff24d313545efba6bd14116b83bd3fa0b7f44ff (patch) | |
| tree | a1c77555098c23f0a7271c0d668bad6aee20b97b /interp/constrintern.ml | |
| parent | 26f2ff64a641f1767abb1a0d3da3e7449a5835d3 (diff) | |
Distinction entre 'as _' qui cache le terme filtre (si variable) et rien dans case_item
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4949 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 19a705ec30..53e6867057 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -743,8 +743,9 @@ let internalise sigma env allow_soapp lvar c = | None -> ids, None in let na = match tm, na with - | RVar (_,id), Anonymous when Idset.mem id vars -> Name id - | _ -> na in + | RVar (_,id), None when Idset.mem id vars & not !Options.v7 -> Name id + | _, None -> Anonymous + | _, Some na -> na in (na,typ), name_fold Idset.add na ids and iterate_prod loc2 env ty body = function |