diff options
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernac.ml4 | 6 | ||||
| -rw-r--r-- | parsing/ppvernac.ml | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 3593239023..6dae6ee233 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -103,9 +103,9 @@ GEXTEND Gram | b = bullet; tac = subgoal_command -> tac None (Some b)] ] ; bullet: - [ [ "-" -> Proof_global.Bullet.Dash - | "*" -> Proof_global.Bullet.Star - | "+" -> Proof_global.Bullet.Plus ] ] + [ [ "-" -> Dash + | "*" -> Star + | "+" -> Plus ] ] ; subgoal_command: [ [ c = check_command; "." -> fun g _ -> c g diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml index ebd8175d74..db6f0e6216 100644 --- a/parsing/ppvernac.ml +++ b/parsing/ppvernac.ml @@ -747,9 +747,9 @@ let rec pr_vernac = function (if i = 1 then mt() else int i ++ str ": ") ++ begin match b with | None -> mt () - | Some Proof_global.Bullet.Dash -> str"-" - | Some Proof_global.Bullet.Star -> str"*" - | Some Proof_global.Bullet.Plus -> str"+" + | Some Dash -> str"-" + | Some Star -> str"*" + | Some Plus -> str"+" end ++ pr_raw_tactic tac ++ (try if deftac then str ".." else mt () |