diff options
| author | Hugo Herbelin | 2016-11-20 15:34:39 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2016-12-02 17:28:33 +0100 |
| commit | afab44873b7861d542cc0146d2bb8099d513f008 (patch) | |
| tree | bc4d35b9d263fd27f35d4fb012114f86978b9346 | |
| parent | ab3b0de5902082f7e692901979aa8330394c2f26 (diff) | |
Fixing printing of "ltac:" in tactics after surrounding parentheses
became mandatory.
| -rw-r--r-- | printing/pptactic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index fedc62f44f..fcc30d702f 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1217,7 +1217,7 @@ module Make | TacNumgoals -> keyword "numgoals" | (TacCall _|Tacexp _ | TacGeneric _) as a -> - str "ltac:(" ++ pr_tac (1,Any) (TacArg (Loc.ghost,a)) ++ str ")" + hov 0 (keyword "ltac:" ++ surround (pr_tac ltop (TacArg (Loc.ghost,a)))) in pr_tac |