diff options
| author | herbelin | 2010-06-13 18:45:17 +0000 |
|---|---|---|
| committer | herbelin | 2010-06-13 18:45:17 +0000 |
| commit | 2c9c92aac97160a40ff240dec41464ae78a6c88c (patch) | |
| tree | 89db50d3c291a005b6d2a41b60227dbced874429 /interp | |
| parent | e873d56b847011059e9590cf7536f05d33b84216 (diff) | |
Fixing bug 2295 (omission of option "as" in return clause of "match" was not
working with section/goal variables).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13131 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrintern.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 9ca0a41bd0..aff7193461 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1260,6 +1260,7 @@ let internalise sigma globalenv env allow_patvar lvar c = [], None in let na = match tm', na with | RVar (_,id), None when Idset.mem id vars -> Name id + | RRef (loc, VarRef id), None -> Name id | _, None -> Anonymous | _, Some na -> na in (tm',(na,typ)), na::ids |