]> matita.cs.unibo.it Git - helm.git/commitdiff
Sys.Break used to be captured.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Thu, 30 Mar 2006 11:15:52 +0000 (11:15 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Thu, 30 Mar 2006 11:15:52 +0000 (11:15 +0000)
helm/software/components/cic/cicParser.ml

index a7ad3c9cf1f88c8cc56cfdadad7c119c3098bc45..f9d6d880ed122be497f803d4841ecd3fca478cb5 100644 (file)
@@ -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