diff options
| -rw-r--r-- | printing/pptactic.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index 5b33f89cb3..5a53968755 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -317,8 +317,9 @@ let pr_ltac_or_var pr = function | ArgArg x -> pr x | ArgVar (loc,id) -> pr_with_comments loc (pr_id id) -let pr_ltac_constant sp = - pr_qualid (Nametab.shortest_qualid_of_tactic sp) +let pr_ltac_constant kn = + if !Constrextern.in_debugger then pr_kn kn + else pr_qualid (Nametab.shortest_qualid_of_tactic kn) let pr_evaluable_reference_env env = function | EvalVarRef id -> pr_id id |