diff options
| author | Pierre-Marie Pédrot | 2020-06-26 11:52:17 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-06-29 15:15:13 +0200 |
| commit | f499083e65ba629e0232fad3f3bbc7fe21d9da2f (patch) | |
| tree | 68992832115f17ccf9f22f49e4313951c4ba6cf5 /plugins | |
| parent | a039e78c821ba6a0da5d3364b98491707eab8add (diff) | |
Remove the deprecated functions from refiner, moving them to Tacticals.
Diffstat (limited to 'plugins')
| -rw-r--r-- | plugins/ltac/tacinterp.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/ltac/tacinterp.ml b/plugins/ltac/tacinterp.ml index 705a1a62ce..d65c2f0de9 100644 --- a/plugins/ltac/tacinterp.ml +++ b/plugins/ltac/tacinterp.ml @@ -1103,8 +1103,8 @@ and eval_tactic ist tac : unit Proofview.tactic = match tac with | TacProgress tac -> Tacticals.New.tclPROGRESS (interp_tactic ist tac) | TacShowHyps tac -> Proofview.V82.tactic begin - tclSHOWHYPS (Proofview.V82.of_tactic (interp_tactic ist tac)) - end [@ocaml.warning "-3"] + Tacticals.tclSHOWHYPS (Proofview.V82.of_tactic (interp_tactic ist tac)) + end | TacAbstract (t,ido) -> let call = LtacMLCall tac in let trace = push_trace(None,call) ist in |