X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatitaclean.ml;h=cf8bf42f4467f0628e93dad1d2d9b625a87112ec;hb=8ee0e6f729105eaf1907de0baef22e170b0d17b3;hp=d06671dc5ce984d75dc6cf7d84a9cb5dfa077339;hpb=894e5d5d77b474d98c3106533d62e4e5b15f3d93;p=helm.git

diff --git a/matita/matitaclean.ml b/matita/matitaclean.ml
index d06671dc5..cf8bf42f4 100644
--- a/matita/matitaclean.ml
+++ b/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
@@ -94,7 +95,7 @@ let main () =
             try
               UM.buri_of_uri (UM.uri_of_string suri)
             with UM.IllFormedUri _ ->
-              let u =
+              let u,_ =
                DependenciesParser.baseuri_of_script ~include_paths:[] suri in
               if String.length u < 5 || String.sub u 0 5 <> "cic:/" then begin
                 HLog.error (sprintf "File %s defines a bad baseuri: %s"