diff options
| author | Hugo Herbelin | 2020-09-15 21:24:39 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-09-22 18:22:12 +0200 |
| commit | d286c3601e24afe0a681d092cbd880773872b980 (patch) | |
| tree | cad1afcff0fbfbcb3c91a82fc3cf75bdee6e73d8 /user-contrib | |
| parent | c3a73c5e923953efea016a81d380e58b2cccb4f9 (diff) | |
Fixes #9716, #13004: don't drop the qualifier of quotations at printing time.
Diffstat (limited to 'user-contrib')
| -rw-r--r-- | user-contrib/Ltac2/tac2core.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/user-contrib/Ltac2/tac2core.ml b/user-contrib/Ltac2/tac2core.ml index cdbcc24484..3ce50865c0 100644 --- a/user-contrib/Ltac2/tac2core.ml +++ b/user-contrib/Ltac2/tac2core.ml @@ -1362,7 +1362,7 @@ let () = let () = let e = Tac2entries.Pltac.tac2expr_in_env in - let inject (loc, v) = Ltac_plugin.Tacexpr.TacGeneric (in_gen (rawwit wit_ltac2) v) in + let inject (loc, v) = Ltac_plugin.Tacexpr.TacGeneric (Some "ltac2", in_gen (rawwit wit_ltac2) v) in Ltac_plugin.Tacentries.create_ltac_quotation "ltac2" inject (e, None) (* Ltac1 runtime representation of Ltac2 closure quotations *) |