diff options
author | 2013-06-22 15:21:01 +0000 | |
---|---|---|
committer | 2013-06-22 15:21:01 +0000 | |
commit | 34e80b356fcccd938f114925e91c53cb33b2bd19 (patch) | |
tree | 517da7072e340d0c36d05a2908079393e431dc43 /tactics/evar_tactics.ml | |
parent | bd7da353ea503423206e329af7a56174cb39f435 (diff) |
Generalizing the use of maps instead of lists in the interpretation
of tactics.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16602 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/evar_tactics.ml')
-rw-r--r-- | tactics/evar_tactics.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tactics/evar_tactics.ml b/tactics/evar_tactics.ml index e096ac449..64f8e208e 100644 --- a/tactics/evar_tactics.ml +++ b/tactics/evar_tactics.ml @@ -43,8 +43,7 @@ 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 (bvars, uvars) = Tacinterp.extract_ltac_constr_values ist filtered in - let ltac_vars = (Id.Map.bindings bvars, uvars) in + let ltac_vars = Tacinterp.extract_ltac_constr_values ist filtered in let sigma' = w_refine (evk,evi) (ltac_vars,rawc) sigma in tclTHEN (tclEVARS sigma') |