From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Fri, 9 Feb 2007 15:12:07 +0000 (+0000)
Subject: Exceptions should never escape the final exception handler for the worker
X-Git-Tag: 0.4.95@7852~605
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=b36c499a9234a3dc0abd5fb8d418975966f179e7;p=helm.git

Exceptions should never escape the final exception handler for the worker
threads. This patch just reduces the probability.
---

diff --git a/matita/matitaGui.ml b/matita/matitaGui.ml
index b8d20cf3c..cc8a885e8 100644
--- a/matita/matitaGui.ml
+++ b/matita/matitaGui.ml
@@ -778,7 +778,11 @@ class gui () =
            unlock_world ()
           with
            | GrafiteDisambiguator.DisambiguationError (offset,errorll) ->
-              interactive_error_interp source_buffer notify_exn offset errorll ;
+              (try
+                interactive_error_interp source_buffer notify_exn offset
+                 errorll
+               with
+                exc -> notify_exn exc);
               unlock_world ()
            | exc ->
               notify_exn exc;