diff options
| author | Hugo Herbelin | 2016-04-13 00:01:19 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-04-17 22:01:35 +0200 |
| commit | f5dc54519f2a62bab2f7b9059e8c3c8dc53619be (patch) | |
| tree | c210da028a94bd17205abf6fa1f074bba66254cc | |
| parent | 9e2f24d5105370ac3964d2e3aae76759f3912db3 (diff) | |
Fixing printing of surrounding parentheses in "ltac:".
| -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 7e903d2d3d..d1039c1277 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1278,7 +1278,7 @@ module Make | TacNumgoals -> keyword "numgoals" | (TacCall _|Tacexp _ | TacGeneric _) as a -> - keyword "ltac:" ++ pr_tac (latom,E) (TacArg (Loc.ghost,a)) + keyword "ltac:" ++ surround (pr_tac ltop (TacArg (Loc.ghost,a))) in pr_tac |