diff options
| author | herbelin | 2010-06-28 07:27:28 +0000 |
|---|---|---|
| committer | herbelin | 2010-06-28 07:27:28 +0000 |
| commit | f5458f9064be5cc4f645019df6519b265281a280 (patch) | |
| tree | c80eaccf51c7b0a194932a1de7421a51c3db0d60 /tactics | |
| parent | 4ff602f29211792651b22d36d1ab444e6f570045 (diff) | |
Fixed a bug introduced in a combination in r12807 and revealed in
r13080 via a failure in CoRN (pattern_of_constr needs correct sigma).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13205 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 04ef9befb1..5230ff810c 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1667,7 +1667,7 @@ let eval_pattern lfun ist env sigma (_,pat as c) = if use_types then snd (interp_typed_pattern ist env sigma c) else - instantiate_pattern lfun pat + instantiate_pattern sigma lfun pat let read_pattern lfun ist env sigma = function | Subterm (b,ido,c) -> Subterm (b,ido,eval_pattern lfun ist env sigma c) |