Skip to content

Commit a2eaff6

Browse files
Merge PR #21876: Removed unused deprecation arguments in tacentries
Reviewed-by: proux01 Co-authored-by: proux01 <proux01@users.noreply.github.com>
2 parents e6e8581 + 4047702 commit a2eaff6

3 files changed

Lines changed: 6 additions & 6 deletions

File tree

plugins/ltac/g_ltac.mlg

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -423,7 +423,7 @@ VERNAC COMMAND EXTEND VernacTacticNotation
423423
{ VtSideff ([], VtNow) } SYNTERP AS tacobj {
424424
let n = Option.default 0 n in
425425
let local = Locality.make_module_locality locality in
426-
Tacentries.add_tactic_notation_syntax local n ?deprecation r
426+
Tacentries.add_tactic_notation_syntax local n r
427427
} ->
428428
{
429429
Tacentries.add_tactic_notation ?deprecation tacobj e

plugins/ltac/tacentries.ml

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -337,7 +337,7 @@ let add_glob_tactic_notation ?deprecation tacobj ids tac =
337337
in
338338
Lib.add_leaf (inTacticGrammar (tacobj, body))
339339

340-
let add_glob_tactic_notation_syntax local ~level ?deprecation prods forml =
340+
let add_glob_tactic_notation_syntax local ~level prods forml =
341341
let parule = {
342342
tacgram_level = level;
343343
tacgram_prods = prods;
@@ -356,9 +356,9 @@ let add_tactic_notation ?deprecation tacobj e =
356356
let tac = Tacintern.glob_tactic_env ids (Global.env()) UnivNames.empty_binders e in
357357
add_glob_tactic_notation ?deprecation tacobj ids tac
358358

359-
let add_tactic_notation_syntax local n ?deprecation prods =
359+
let add_tactic_notation_syntax local n prods =
360360
let prods = List.map interp_prod_item prods in
361-
add_glob_tactic_notation_syntax local ~level:n ?deprecation prods false
361+
add_glob_tactic_notation_syntax local ~level:n prods false
362362

363363
(**********************************************************************)
364364
(* ML Tactic entries *)
@@ -412,7 +412,7 @@ let synterp_add_ml_tactic_notation name ~level ?deprecation prods =
412412
let entry = { mltac_name = name; mltac_index = len - i - 1 } in
413413
let map id = Reference (Locus.ArgVar (CAst.make id)) in
414414
let tac = CAst.make (TacML (entry, List.map map ids)) in
415-
let tacobj = add_glob_tactic_notation_syntax false ~level ?deprecation prods true in
415+
let tacobj = add_glob_tactic_notation_syntax false ~level prods true in
416416
tacobj, { Tacenv.alias_args = ids; alias_body = tac; alias_deprecation = deprecation;
417417
alias_is_ml = Some entry;
418418
}

plugins/ltac/tacentries.mli

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -43,7 +43,7 @@ val add_tactic_notation :
4343
productions [prods] and returning the body [expr] *)
4444

4545
val add_tactic_notation_syntax :
46-
locality_flag -> int -> ?deprecation:Deprecation.t -> raw_argument
46+
locality_flag -> int -> raw_argument
4747
grammar_tactic_prod_item_expr list ->
4848
tactic_grammar_obj
4949

0 commit comments

Comments
 (0)