diff options
author | 2013-06-24 13:53:17 +0000 | |
---|---|---|
committer | 2013-06-24 13:53:17 +0000 | |
commit | d152948a08f22f80724247c19b76e493eb5b7963 (patch) | |
tree | 683528af4ac4c21de0c599187716953c9d6e8723 /tactics/evar_tactics.ml | |
parent | 1c5f5f658c95def5cf19fdf5fdb2fe0a0aa1c740 (diff) |
Cleaning up the type of Tacinterp.extract_ltac_constr_values.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16606 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |