summaryrefslogtreecommitdiff
path: root/test-suite/bugs/closed/3251.v
blob: 5a7ae2002b33db28d2a606e73f3f6c20c9670c17 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
Goal True.
Ltac foo := idtac.
(* print out happens twice:
foo is defined
foo is defined

... that's fishy.  But E. Tassi tells me that it's expected since "Ltac" generates a side
effect that escapes the proof.  In the STM model this means the command is executed twice,
once in the proof branch, and another time in the main branch *)
Undo.
Ltac foo := idtac.
(* Before 5b39c3535f7b3383d89d7b844537244a4e7c0eca, this would print out: *)
(* Anomaly: Backtrack.backto to a state with no vcs_backup. Please report. *)