From 667e4a7870625bc8dedb651b278cbca4f43e793d Mon Sep 17 00:00:00 2001
From: gregoire
Date: Thu, 12 Dec 2002 15:42:49 +0000
Subject: Ajout du vernac Proof with

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3425 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/interface/centaur.ml4 | 2 +-
 contrib/interface/xlate.ml    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'contrib/interface')

diff --git a/contrib/interface/centaur.ml4 b/contrib/interface/centaur.ml4
index fd8d64f07d..1a660a89f5 100644
--- a/contrib/interface/centaur.ml4
+++ b/contrib/interface/centaur.ml4
@@ -470,7 +470,7 @@ let logical_kill n =
 
 let simulate_solve n tac =
   let path = History.get_nth_open_path (current_proof_name()) n in
-  solve_nth n (Tacinterp.hide_interp tac);
+  solve_nth n (Tacinterp.hide_interp tac (get_end_tac()));
   traverse_to path;
   Pfedit.mutate weak_undo_pftreestate;
   traverse_to []
diff --git a/contrib/interface/xlate.ml b/contrib/interface/xlate.ml
index c9079a8fc1..2ceb5789c6 100644
--- a/contrib/interface/xlate.ml
+++ b/contrib/interface/xlate.ml
@@ -1223,7 +1223,7 @@ let xlate_vernac =
     | VernacAbort None -> CT_abort ctv_ID_OPT_OR_ALL_NONE
     | VernacAbortAll -> CT_abort ctv_ID_OPT_OR_ALL_ALL
     | VernacRestart -> CT_restart
-    | VernacSolve (n, tac) -> CT_solve (CT_int n, xlate_tactic tac)
+    | VernacSolve (n, tac, b) -> CT_solve (CT_int n, xlate_tactic tac)
     | VernacFocus nopt -> CT_focus (xlate_int_opt nopt)
     | VernacUnfocus -> CT_unfocus
   | VernacExtend ("HintRewrite", orient :: formula_list :: base :: t) ->
-- 
cgit v1.2.3