debug_prerr "clean_baseuri will remove:";
if debug then
List.iter (fun u -> debug_prerr (UriManager.string_of_uri u)) l;
- List.iter (MatitaSync.remove ~verbose) l;
Hashtbl.iter
(fun buri _ ->
MatitaMisc.safe_remove (MatitaMisc.obj_file_of_baseuri buri)
) cache_of_processed_baseuri;
+ List.iter (MatitaSync.remove ~verbose) l;
cleaned_no := !cleaned_no + List.length l;
if !cleaned_no > 30 then
List.iter