diff options
| author | Maxime Dénès | 2017-12-14 17:20:44 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-12-14 17:20:44 +0100 |
| commit | e7807a1eaa5600dfc1774c447d2f0306815bb481 (patch) | |
| tree | d3ef892be71383890d1a74d943314a59d333591b /plugins/ltac/pptactic.ml | |
| parent | 290abf59e6f13bb1468d8e3df050cf0bd9c48708 (diff) | |
| parent | a9849c070e954ed5c54dec5ad8eac98287939799 (diff) | |
Merge PR #6169: Clean up/deprecated options
Diffstat (limited to 'plugins/ltac/pptactic.ml')
| -rw-r--r-- | plugins/ltac/pptactic.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/plugins/ltac/pptactic.ml b/plugins/ltac/pptactic.ml index 6aa2f6f898..e5ff473568 100644 --- a/plugins/ltac/pptactic.ml +++ b/plugins/ltac/pptactic.ml @@ -526,11 +526,9 @@ let pr_goal_selector ~toplevel s = let pr_match_pattern pr_pat = function | Term a -> pr_pat a - | Subterm (b,None,a) -> - (** ppedrot: we don't make difference between [appcontext] and [context] - anymore, and the interpretation is governed by a flag instead. *) + | Subterm (None,a) -> keyword "context" ++ str" [ " ++ pr_pat a ++ str " ]" - | Subterm (b,Some id,a) -> + | Subterm (Some id,a) -> keyword "context" ++ spc () ++ pr_id id ++ str "[ " ++ pr_pat a ++ str " ]" let pr_match_hyps pr_pat = function |