diff options
author | 2014-04-27 23:26:14 +0200 | |
---|---|---|
committer | 2014-04-27 23:38:09 +0200 | |
commit | 6541e32be7018104c47ccad75ff41ffc750ff944 (patch) | |
tree | aa7f8c8feffb53bc821be0045265d7bf0fc67fb7 /tactics/tacinterp.ml | |
parent | 85ec7f72e1c54b5da93473f0c7a3edc8930f0d90 (diff) |
Rewriting [lapply] tactic in the new monad.
Diffstat (limited to 'tactics/tacinterp.ml')
-rw-r--r-- | tactics/tacinterp.ml | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 14555279d..ecd7fce31 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1693,12 +1693,11 @@ and interp_atomic ist tac = end end | TacLApply c -> - Proofview.V82.tactic begin fun gl -> - let (sigma,c_interp) = pf_interp_constr ist gl c in - tclTHEN - (tclEVARS sigma) + Proofview.Goal.enter begin fun gl -> + let (sigma,c_interp) = Tacmach.New.of_old (pf_interp_constr ist) gl c in + Tacticals.New.tclTHEN + (Proofview.V82.tclEVARS sigma) (Tactics.cut_and_apply c_interp) - gl end (* Context management *) |