diff options
Diffstat (limited to 'printing/ppvernac.ml')
| -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) -> |