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 /plugins/ltac/tacinterp.ml | |
| parent | c3a73c5e923953efea016a81d380e58b2cccb4f9 (diff) | |
Fixes #9716, #13004: don't drop the qualifier of quotations at printing time.
Diffstat (limited to 'plugins/ltac/tacinterp.ml')
| -rw-r--r-- | plugins/ltac/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/tacinterp.ml b/plugins/ltac/tacinterp.ml index 2258201c22..ffc8a81994 100644 --- a/plugins/ltac/tacinterp.ml +++ b/plugins/ltac/tacinterp.ml @@ -1247,7 +1247,7 @@ and interp_ltac_reference ?loc' mustbetac ist r : Val.t Ftactic.t = and interp_tacarg ist arg : Val.t Ftactic.t = match arg with - | TacGeneric arg -> interp_genarg ist arg + | TacGeneric (_,arg) -> interp_genarg ist arg | Reference r -> interp_ltac_reference false ist r | ConstrMayEval c -> Ftactic.enter begin fun gl -> |