diff options
| author | Pierre-Marie Pédrot | 2018-04-30 09:39:56 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-04-30 09:39:56 +0200 |
| commit | c1e12fbc64c39739e4a9f7bbf92e42f1bcb6be24 (patch) | |
| tree | 3ae4ffb92eab12be9e33fad5a5ff0687c6cff540 /plugins/ltac/pptactic.ml | |
| parent | 86cfc249dc7cc95d772ed91663491ee8b37c1431 (diff) | |
| parent | d94fef210a63db4ff34251afe093041912a7cbde (diff) | |
Merge PR #6944: Strict focusing using Default Goal Selector.
Diffstat (limited to 'plugins/ltac/pptactic.ml')
| -rw-r--r-- | plugins/ltac/pptactic.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/plugins/ltac/pptactic.ml b/plugins/ltac/pptactic.ml index 11bb7a2341..bd02d85d59 100644 --- a/plugins/ltac/pptactic.ml +++ b/plugins/ltac/pptactic.ml @@ -515,6 +515,7 @@ let string_of_genarg_arg (ArgumentType arg) = else int i ++ str "-" ++ int j let pr_goal_selector toplevel = function + | SelectAlreadyFocused -> str "!:" | SelectNth i -> int i ++ str ":" | SelectList l -> prlist_with_sep (fun () -> str ", ") pr_range_selector l ++ str ":" | SelectId id -> str "[" ++ Id.print id ++ str "]:" |