]> matita.cs.unibo.it Git - helm.git/commitdiff
More exceptions captured.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Tue, 13 May 2008 17:31:40 +0000 (17:31 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Tue, 13 May 2008 17:31:40 +0000 (17:31 +0000)
helm/software/components/ng_kernel/check.ml

index 6bc725033352adce644a4d96558785ec195c7a9a..dde581788bc7e757f2666aa7e0406c4d8e1cacaf 100644 (file)
@@ -128,7 +128,8 @@ let _ =
     with 
     | NCicTypeChecker.AssertFailure s 
     | NCicTypeChecker.TypeCheckerFailure s
-    | NCicEnvironment.ObjectNotFound s as e -> 
+    | NCicEnvironment.ObjectNotFound s
+    | NCicEnvironment.BadDependency s as e -> 
        prerr_endline ("######### " ^ Lazy.force s);
        if not ignore_exc then raise e
     )