X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fcic%2FcicParser.ml;h=1e9a3a33c1444a553f9b7beaa8b5bee709a58254;hb=93cc0505102768f7d4337907bafa31d1528a7289;hp=a7ad3c9cf1f88c8cc56cfdadad7c119c3098bc45;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/components/cic/cicParser.ml b/components/cic/cicParser.ml
index a7ad3c9cf..1e9a3a33c 100644
--- a/components/cic/cicParser.ml
+++ b/components/cic/cicParser.ml
@@ -672,6 +672,7 @@ let end_element ctxt tag =
         | [ "value", "remark"] -> Obj_flavour `Remark
         | [ "value", "theorem"] -> Obj_flavour `Theorem
         | [ "value", "variant"] -> Obj_flavour `Variant
+        | [ "value", "axiom"] -> Obj_flavour `Axiom
         | _ -> attribute_error ())
   | "class" ->
       let class_modifiers = pop_class_modifiers ctxt in
@@ -751,6 +752,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