diff options
| author | herbelin | 2012-08-11 17:45:12 +0000 |
|---|---|---|
| committer | herbelin | 2012-08-11 17:45:12 +0000 |
| commit | d71a32d3700980c07af2d7858147598b961607d6 (patch) | |
| tree | 1f4a02824f41c83d8260b655d1b601ad1775d4b3 /printing | |
| parent | 7ac5be3b1e433c028b55c44f0ddfe805634ff0f1 (diff) | |
Added support for option Local (at module level) in Tactic Notation.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15731 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index bdf5a26ef8..70094b48c9 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -497,7 +497,8 @@ let rec pr_vernac = function | VernacFail v -> str"Fail" ++ spc() ++ pr_vernac v (* Syntax *) - | VernacTacticNotation (n,r,e) -> pr_grammar_tactic_rule n ("",r,e) + | VernacTacticNotation (local,n,r,e) -> + pr_locality local ++ pr_grammar_tactic_rule n ("",r,e) | VernacOpenCloseScope (local,opening,sc) -> pr_section_locality local ++ str (if opening then "Open " else "Close ") ++ |