From c250c03254bda83775647b47bc35274ea0747647 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Fri, 22 Apr 2011 06:50:41 +0000
Subject: Coqide: fix synchro when restarting during a single step

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14052 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 ide/coqide.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ide/coqide.ml b/ide/coqide.ml
index cc36dd9de5..d6ebdc307c 100644
--- a/ide/coqide.ml
+++ b/ide/coqide.ml
@@ -946,9 +946,11 @@ object(self)
     match sync get_next_phrase () with
       | None -> raise Unsuccessful
       | Some (loc,phrase) ->
-        match self#send_to_coq ct verbosely phrase true true true with
+        try match self#send_to_coq ct verbosely phrase true true true with
           | Some safe -> sync mark_processed safe loc
           | None -> sync remove_tag loc; raise Unsuccessful
+	with
+	  | RestartCoqtop -> sync remove_tag loc; raise RestartCoqtop
 
   method process_next_phrase verbosely =
     try self#process_one_phrase !mycoqtop verbosely true true
-- 
cgit v1.2.3