X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fmatitaclean.ml;h=98d5ffa6b540005783b49b573c458bb9018d9eca;hb=fb99d31806e06e29bed90f08f132d6e8fb758bd8;hp=d06671dc5ce984d75dc6cf7d84a9cb5dfa077339;hpb=1acce08d9a3fa02ffd42a8981198bd06aab4c65d;p=helm.git

diff --git a/helm/software/matita/matitaclean.ml b/helm/software/matita/matitaclean.ml
index d06671dc5..98d5ffa6b 100644
--- a/helm/software/matita/matitaclean.ml
+++ b/helm/software/matita/matitaclean.ml
@@ -57,6 +57,7 @@ let ask_confirmation _ =
 
 let main () =
   let _ = MatitaInit.initialize_all () in
+  if Helm_registry.get_bool "matita.bench" then MatitaMisc.shutup ();
   match Helm_registry.get_list Helm_registry.string "matita.args" with
   | [ "all" ] ->
       if Helm_registry.get_bool "matita.system" then