diff options
author | 2015-02-09 23:58:01 +0100 | |
---|---|---|
committer | 2015-02-10 00:07:06 +0100 | |
commit | 927b611f05a09f3e9dc1f9b38c629ba439f33b42 (patch) | |
tree | 27c5cd280a1dbc1ac18d1357c75bf982ceb0151a /tactics/tactics.ml | |
parent | 32a295c7390dd40807a2154b54758c61df9b209f (diff) |
Revert "Removing spurious tclWITHHOLES."
This reverts commit 36c7fba1180eaa2ceea7cc486ebd2f0d649042f0.
I had mixed up the boolean flag, resulting in the loss of evar-free
versions of tactics.
Diffstat (limited to 'tactics/tactics.ml')
-rw-r--r-- | tactics/tactics.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tactics/tactics.ml b/tactics/tactics.ml index 6f4c94e3f..e7fde1b83 100644 --- a/tactics/tactics.ml +++ b/tactics/tactics.ml @@ -2134,11 +2134,12 @@ and intro_pattern_action loc b style pat thin tac id = match pat with let sigma = Proofview.Goal.sigma gl in let env = Proofview.Goal.env gl in let sigma,c = f env sigma in - Proofview.Unsafe.tclEVARS sigma <*> + Tacticals.New.tclWITHHOLES false (Tacticals.New.tclTHENFIRST (* Skip the side conditions of the apply *) (apply_in_once false true true true naming id (None,(sigma,(c,NoBindings))) tac_ipat)) + sigma (tac thin None []) end |