From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 30 Mar 2006 11:15:52 +0000 (+0000)
Subject: Sys.Break used to be captured.
X-Git-Tag: make_still_working~7444
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=6e5d56aeaba8db09debf2cb4bfa5afb5b76cdcdc;hp=047496e13ab922b73a0fd19937ead4277f7625df;p=helm.git

Sys.Break used to be captured.
---

diff --git a/helm/software/components/cic/cicParser.ml b/helm/software/components/cic/cicParser.ml
index a7ad3c9cf..f9d6d880e 100644
--- a/helm/software/components/cic/cicParser.ml
+++ b/helm/software/components/cic/cicParser.ml
@@ -751,6 +751,7 @@ let parse uri filename =
   | Failure "int_of_string" -> parse_error ctxt "integer number expected"
   | Invalid_argument "bool_of_string" -> parse_error ctxt "boolean expected"
   | P.Parse_error msg -> parse_error ctxt ("parse error: " ^ msg)
+  | Sys.Break
   | Parser_failure _
   | Getter_failure _ as exn ->
       raise exn