diff options
| author | Pierre-Marie Pédrot | 2020-06-11 13:03:30 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-06-11 13:03:30 +0200 |
| commit | 5611f23271be3c23761450679374690805bf51bb (patch) | |
| tree | 1b886b92a0d1eac35ed95e56ff8a2c6cafbff0b1 /plugins/ltac/tacinterp.ml | |
| parent | c077db40a204132eda8a5d5979022f4961503cab (diff) | |
| parent | 044f76cf32080f0a56309544e5335e44f89725b4 (diff) | |
Merge PR #12423: Remove info tactic, deprecated in 8.5
Reviewed-by: ppedrot
Diffstat (limited to 'plugins/ltac/tacinterp.ml')
| -rw-r--r-- | plugins/ltac/tacinterp.ml | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/plugins/ltac/tacinterp.ml b/plugins/ltac/tacinterp.ml index 97f7a198e6..705a1a62ce 100644 --- a/plugins/ltac/tacinterp.ml +++ b/plugins/ltac/tacinterp.ml @@ -1035,13 +1035,6 @@ let type_uconstr ?(flags = (constr_flags ())) understand_ltac flags env sigma vars expected_type term end -let warn_deprecated_info = - CWarnings.create ~name:"deprecated-info-tactical" ~category:"deprecated" - (fun () -> - strbrk "The general \"info\" tactic is currently not working." ++ spc()++ - strbrk "There is an \"Info\" command to replace it." ++fnl () ++ - strbrk "Some specific verbose tactics may also exist, such as info_eauto.") - (* Interprets an l-tac expression into a value *) let rec val_interp ist ?(appl=UnnamedAppl) (tac:glob_tactic_expr) : Val.t Ftactic.t = (* The name [appl] of applied top-level Ltac names is ignored in @@ -1154,9 +1147,6 @@ and eval_tactic ist tac : unit Proofview.tactic = match tac with | TacSolve l -> Tacticals.New.tclSOLVE (List.map (interp_tactic ist) l) | TacComplete tac -> Tacticals.New.tclCOMPLETE (interp_tactic ist tac) | TacArg a -> interp_tactic ist (TacArg a) - | TacInfo tac -> - warn_deprecated_info (); - eval_tactic ist tac | TacSelect (sel, tac) -> Tacticals.New.tclSELECT sel (interp_tactic ist tac) (* For extensions *) | TacAlias {loc; v=(s,l)} -> |