diff options
| author | Pierre-Marie Pédrot | 2019-05-02 17:54:40 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-05-02 17:54:40 +0200 |
| commit | 6960da4736186fa6214854329f36f558e7aa4d0b (patch) | |
| tree | 47e44752c3551c156097f48d13abf2b48c529b60 /plugins/ltac/pptactic.ml | |
| parent | 2aafa0953ce93e3e618c918461ddc1cf1500f97c (diff) | |
| parent | 29955b2b6e5eb46adc71425956a5c940522fb30d (diff) | |
Merge PR #10017: Exposing a change_no_check tactic
Ack-by: Zimmi48
Ack-by: herbelin
Reviewed-by: ppedrot
Diffstat (limited to 'plugins/ltac/pptactic.ml')
| -rw-r--r-- | plugins/ltac/pptactic.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/plugins/ltac/pptactic.ml b/plugins/ltac/pptactic.ml index 80070a7493..79f0f521cc 100644 --- a/plugins/ltac/pptactic.ml +++ b/plugins/ltac/pptactic.ml @@ -833,9 +833,10 @@ let pr_goal_selector ~toplevel s = pr_red_expr r ++ pr_non_empty_arg (pr_clauses (Some true) pr.pr_name) h ) - | TacChange (op,c,h) -> + | TacChange (check,op,c,h) -> + let name = if check then "change_no_check" else "change" in hov 1 ( - primitive "change" ++ brk (1,1) + primitive name ++ brk (1,1) ++ ( match op with None -> |