diff options
| author | Pierre-Marie Pédrot | 2016-08-18 13:15:42 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-08-18 13:15:42 +0200 |
| commit | ce9058b597fc53310619d537aadacc091755ed39 (patch) | |
| tree | 96015affb08c25abc4485c5b2e9db4723b20c443 | |
| parent | 4b14558683a9fc6d0e0f1b5018bfbafc94bb8d3a (diff) | |
Fix bug #4939: LtacProf prints tactic notations weirdly.
| -rw-r--r-- | ltac/profile_ltac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ltac/profile_ltac.ml b/ltac/profile_ltac.ml index f332e1a0d5..bea02e3dcb 100644 --- a/ltac/profile_ltac.ml +++ b/ltac/profile_ltac.ml @@ -139,7 +139,7 @@ let string_of_call ck = let s = string_of_ppcmds (match ck with - | Tacexpr.LtacNotationCall s -> Names.KerName.print s + | Tacexpr.LtacNotationCall s -> Pptactic.pr_alias_key s | Tacexpr.LtacNameCall cst -> Pptactic.pr_ltac_constant cst | Tacexpr.LtacVarCall (id, t) -> Nameops.pr_id id | Tacexpr.LtacAtomCall te -> |