From 217c3be106db930f258bfe479777179ace594b03 Mon Sep 17 00:00:00 2001
From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 11 Jan 2008 15:15:38 +0000
Subject: [PATCH] ugly hack to make matitac not exit when called on a readonly
 baseuri, but just fail

---
 helm/software/matita/matitacLib.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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 *)
-- 
2.39.5