diff options
| author | Pierre-Marie Pédrot | 2020-09-23 11:00:50 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-09-23 11:00:50 +0200 |
| commit | bb6e78ef2ca4bf0d686654fa3f66dd780f5be0ac (patch) | |
| tree | ce14f693e58487503870c53d7a186bf7ca66a1f6 /plugins/ltac/extraargs.mlg | |
| parent | 23b0dbb3a0a71edd9ce2137e88b715c3e36e576f (diff) | |
| parent | fb144f860a0034103ad0470b8982639277baac1b (diff) | |
Merge PR #13028: Fixes #9716 and #13004: don't drop the qualifier of quotations at printing time
Reviewed-by: ppedrot
Diffstat (limited to 'plugins/ltac/extraargs.mlg')
| -rw-r--r-- | plugins/ltac/extraargs.mlg | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/extraargs.mlg b/plugins/ltac/extraargs.mlg index eb53fd45d0..863c4d37d8 100644 --- a/plugins/ltac/extraargs.mlg +++ b/plugins/ltac/extraargs.mlg @@ -25,7 +25,7 @@ open Locus (** Adding scopes for generic arguments not defined through ARGUMENT EXTEND *) let create_generic_quotation name e wit = - let inject (loc, v) = Tacexpr.TacGeneric (Genarg.in_gen (Genarg.rawwit wit) v) in + let inject (loc, v) = Tacexpr.TacGeneric (Some name, Genarg.in_gen (Genarg.rawwit wit) v) in Tacentries.create_ltac_quotation name inject (e, None) let () = create_generic_quotation "integer" Pcoq.Prim.integer Stdarg.wit_int |