diff options
| author | Arnaud Spiwack | 2014-07-24 15:49:48 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2014-07-24 17:58:38 +0200 |
| commit | 032833f1de278b6dbb184ee0653b0c275a59c422 (patch) | |
| tree | 909390437311e6eca393abb6a1bc7c2fb8fd2d17 /printing | |
| parent | 6b48993748998f0aaaa18ee65a7591d6a083c0f9 (diff) | |
Distinguish tactics t1;t2 and t1;[t2..].
They used to be the same (and had a single entry in the AST). But now that t2 can be a multi-goal tactic, t1;[t2..] has the semantics of executing t2 in each goal independently.
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/pptactic.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index e51d7b3fd9..90341a69b8 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -846,11 +846,11 @@ let rec pr_tac inherited tac = hov 1 (pr_tac (lseq,E) t ++ pr_then () ++ spc () ++ pr_seq_body (pr_tac ltop) tl), lseq - | TacThen (t1,[||],t2,[||]) -> + | TacThen (t1,t2) -> hov 1 (pr_tac (lseq,E) t1 ++ pr_then () ++ spc () ++ pr_tac (lseq,L) t2), lseq - | TacThen (t1,tf,t2,tl) -> + | TacThens3parts (t1,tf,t2,tl) -> hov 1 (pr_tac (lseq,E) t1 ++ pr_then () ++ spc () ++ pr_then_gen (pr_tac ltop) tf t2 tl), lseq |