diff options
| author | Guillaume Melquiond | 2016-11-22 10:54:20 +0100 |
|---|---|---|
| committer | Guillaume Melquiond | 2016-11-22 10:54:20 +0100 |
| commit | a277da239514ad3bcabc7933a14cfcdc46f272e5 (patch) | |
| tree | 7dea26788038547428d27c3b209b9f4c78fdcf2c | |
| parent | aa86963464045d61fa0eaf3a7fe67ced7a6a73f4 (diff) | |
Properly parenthesize "ltac:" arguments (bug #5169).
| -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 1e618b59eb..6e40e03f5b 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1216,7 +1216,7 @@ module Make | TacNumgoals -> keyword "numgoals" | (TacCall _|Tacexp _ | TacGeneric _) as a -> - keyword "ltac:" ++ pr_tac (latom,E) (TacArg (Loc.ghost,a)) + str "ltac:(" ++ pr_tac (1,Any) (TacArg (Loc.ghost,a)) ++ str ")" in pr_tac |