From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 11 Jan 2008 15:15:38 +0000 (+0000)
Subject: ugly hack to make matitac not exit when called on a readonly baseuri, but just fail
X-Git-Tag: make_still_working~5683
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=217c3be106db930f258bfe479777179ace594b03;p=helm.git

ugly hack to make matitac not exit when called on a readonly baseuri, but just fail
---

diff --git a/helm/software/matita/matitacLib.ml b/helm/software/matita/matitacLib.ml
index 0763981c6..f21b0917a 100644
--- a/helm/software/matita/matitacLib.ml
+++ b/helm/software/matita/matitacLib.ml
@@ -141,7 +141,8 @@ let compile options fname =
       LibraryClean.clean_baseuris [baseuri];
       if (not (Http_getter_storage.is_empty ~local:true baseuri)) then begin
         HLog.error ("Baseuri "^baseuri^" not cleaned! (probably readonly)");
-        exit 1;
+        (* Ugly hack *)
+        raise Sys.Break
       end;
     end;
     (* create dir for XML files *)