diff options
| author | letouzey | 2011-03-28 22:15:48 +0000 |
|---|---|---|
| committer | letouzey | 2011-03-28 22:15:48 +0000 |
| commit | 80f9646d331294c68ab9a2bfdd917049c3d94e36 (patch) | |
| tree | accdc50c9d4ea4e273915b84f1bfe3165c86e636 | |
| parent | 8e7eab77e83a3926b96ac46679869277e8b3f7a2 (diff) | |
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
| -rw-r--r-- | toplevel/ide_slave.ml | 4 |
1 files 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 -> |