X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Flibrary%2FlibraryClean.ml;h=8d78189920c8db5f6c68e9449b476aed3c10b71a;hb=05b047be6817f430c8c72fd9b0902df8bb9f579e;hp=6f58bb54eaadb79274c1cca29328b1a7b4aaab0f;hpb=f6b7c6ae353e014761a3d24dbc87e00d828d7f2d;p=helm.git

diff --git a/matita/components/library/libraryClean.ml b/matita/components/library/libraryClean.ml
index 6f58bb54e..8d7818992 100644
--- a/matita/components/library/libraryClean.ml
+++ b/matita/components/library/libraryClean.ml
@@ -220,10 +220,11 @@ let moo_root_dir = lazy (
 *)
 
 let rec close_db cache_of_processed_baseuri uris next =
-  prerr_endline "CLOSE_DB "; uris (* MATITA 1.0 *)
+  uris (* MATITA 1.0 *)
 ;;
 
 let clean_baseuris ?(verbose=true) buris =
+ (* MATITA 1.0 *) () (*
   let cache_of_processed_baseuri = Hashtbl.create 1024 in
   let buris = List.map Http_getter_misc.strip_trailing_slash buris in
   debug_prerr "clean_baseuris called on:";
@@ -248,3 +249,4 @@ let clean_baseuris ?(verbose=true) buris =
      with Http_getter_types.Key_not_found _ -> ())
    (HExtlib.list_uniq (List.fast_sort Pervasives.compare
      (List.map NUri.baseuri_of_uri l @ buris)))
+*)