summaryrefslogtreecommitdiff
path: root/test-suite/bugs/closed/3251.v
blob: d4ce050c5741d01515f3c39cc0fb0c36384942cf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Goal True.
idtac.
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. *)