X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fmatitac.ml;h=83ab74439129e005717d987083b8bdbbb9b2a908;hb=b367de0252e88d6b0476648d5ceac7e4aeffca27;hp=a2e5b0f33ec6ad61f799227d0977886cf844ed52;hpb=6010a5725c95faf03d3f9031203717517582d086;p=helm.git

diff --git a/helm/software/matita/matitac.ml b/helm/software/matita/matitac.ml
index a2e5b0f33..83ab74439 100644
--- a/helm/software/matita/matitac.ml
+++ b/helm/software/matita/matitac.ml
@@ -58,9 +58,9 @@ let main_compiler () =
   (* here we go *)
   if not (Helm_registry.get_bool "matita.verbose") then MatitaMisc.shutup ();
   if MatitacLib.Make.make root target then 
-    HLog.message "Compilation successful"
+    (HLog.message "Compilation successful"; 0)
   else
-    HLog.message "Compilation failed"
+    (HLog.message "Compilation failed"; 1)
 ;;
 
 let main () =
@@ -69,7 +69,7 @@ let main () =
   if      Pcre.pmatch ~pat:"^matitadep"    bin then Matitadep.main ()
   else if Pcre.pmatch ~pat:"^matitaclean"  bin then Matitaclean.main ()
   else if Pcre.pmatch ~pat:"^matitawiki"   bin then MatitaWiki.main ()
-  else main_compiler ()
+  else exit (main_compiler ())
 ;;
 
 let _ = main ()