diff options
| author |  vgross <vgross@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-23 11:13:20 +0000 |
|---|---|---|
| committer | vgross <vgross@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-23 11:13:20 +0000 |
| commit | 64e5ee718e55e13473bd3103a9535aa76ec4c63d (patch) | |
| tree | dc91b135c577428f9a7c7993a8cff0e304c97adf | |
| parent | 02ed958938e9d0cdf4dd12d79965ed060a48d351 (diff) | |
Fix bug in backtracking.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12876 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | ide/coq.ml | 2 | ||||
| -rw-r--r-- | test-suite/ide/undo.v | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ide/coq.ml b/ide/coq.ml index ac978e4cf..4c5179edd 100644 --- a/ide/coq.ml +++ b/ide/coq.ml @@ -461,7 +461,7 @@ struct List.iter (fun cmd -> let str = (if value then "Set" else "Unset") ^ " Printing " ^ cmd ^ "." in - Vernac.eval_ctrl (snd (Vernac.parse_sentence (parsable_of_string str,None)))) + Vernac.eval_expr (Vernac.parse_sentence (parsable_of_string str,None))) opt let enforce_hack () = Hashtbl.iter set state_hack diff --git a/test-suite/ide/undo.v b/test-suite/ide/undo.v index d5e9ee5e8..84eacc3e3 100644 --- a/test-suite/ide/undo.v +++ b/test-suite/ide/undo.v @@ -3,8 +3,8 @@ (* Undoing arbitrary commands, as first step *) -Theorem a : O=O. -Ltac f x := x. +Theorem a : O=O. (* 2 *) +Ltac f x := x. (* 1 * 3 *) assert True by trivial. trivial. Qed. |