From 80f9646d331294c68ab9a2bfdd917049c3d94e36 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 28 Mar 2011 22:15:48 +0000
Subject: Ide_slave : fix last commit, use ad_hoc catch_break instead of
 Sys.catch_break

 Default behavior for (Sys.catch_break false) is to exit, while we want
 the opposite: survive. When I write an ad-hoc catch_break, I'd better
 use it, damnit !

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13937 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/ide_slave.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/toplevel/ide_slave.ml b/toplevel/ide_slave.ml
index c5ab2ac7b6..2c07247909 100644
--- a/toplevel/ide_slave.ml
+++ b/toplevel/ide_slave.ml
@@ -551,9 +551,9 @@ let loop () =
   catch_break false;
   try while true do
       let q = (Marshal.from_channel: in_channel -> 'a Ide_intf.call) stdin in
-      Sys.catch_break true;
+      catch_break true;
       let r = eval_call q in
-      Sys.catch_break false;
+      catch_break false;
       Marshal.to_channel !orig_stdout r []; flush !orig_stdout
     done
   with e ->
-- 
cgit v1.2.3