diff options
Diffstat (limited to 'tactics/evar_tactics.ml')
| -rw-r--r-- | tactics/evar_tactics.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/evar_tactics.ml b/tactics/evar_tactics.ml index 64f8e208e..ece0104b2 100644 --- a/tactics/evar_tactics.ml +++ b/tactics/evar_tactics.ml @@ -43,8 +43,8 @@ let instantiate n (ist,rawc) ido gl = let evk,_ = List.nth evl (n-1) in let evi = Evd.find sigma evk in let filtered = Evd.evar_filtered_env evi in - let ltac_vars = Tacinterp.extract_ltac_constr_values ist filtered in - let sigma' = w_refine (evk,evi) (ltac_vars,rawc) sigma in + let constrvars = Tacinterp.extract_ltac_constr_values ist filtered in + let sigma' = w_refine (evk,evi) ((constrvars, ist.Geninterp.lfun),rawc) sigma in tclTHEN (tclEVARS sigma') tclNORMEVAR |