diff options
| author | aspiwack | 2013-11-02 15:35:45 +0000 |
|---|---|---|
| committer | aspiwack | 2013-11-02 15:35:45 +0000 |
| commit | c1dc67b1e5b4add067571955f5fd5e0f6ab1a3be (patch) | |
| tree | d96bd49af498dfc13c7a90c1e1b4284e6c3d9705 /printing | |
| parent | 386d36deb6efb755cdd16ad216361e01e0b7662e (diff) | |
New option Default Goal Selector.
Set Default Goal Selector "all" prefixes all tactics with "all:" if no selector
is specified (it is overridden by 1: for instance).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16983 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppvernac.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 1ffa8275a4..5345d40e2f 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -777,9 +777,7 @@ let rec pr_vernac = function | SelectNth i -> int i ++ str":" | SelectAll -> str"all" ++ str":" in - (* arnaud: attention à imprimer correctement en fonction - de la (future) option pour le sélecteur par défaut *) - (if i = SelectNth 1 then mt() else pr_goal_selector i) ++ + (if i = Proof_global.get_default_goal_selector () then mt() else pr_goal_selector i) ++ pr_raw_tactic tac ++ (if deftac then str ".." else mt ()) | VernacSolveExistential (i,c) -> |