]> matita.cs.unibo.it Git - helm.git/commitdiff
return 1 in case of failure
authorEnrico Tassi <enrico.tassi@inria.fr>
Wed, 2 Jul 2008 12:50:18 +0000 (12:50 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Wed, 2 Jul 2008 12:50:18 +0000 (12:50 +0000)
helm/software/matita/matitac.ml

index a2e5b0f33ec6ad61f799227d0977886cf844ed52..83ab74439129e005717d987083b8bdbbb9b2a908 100644 (file)
@@ -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 ()