From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Wed, 14 Jun 2006 14:32:46 +0000 (+0000)
Subject: Enrico: bugfix, remove depend.errors upon destroy
X-Git-Tag: 0.4.95@7852~1324
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=fb1616ba8bbaeb0dce60fb463ec4a9f48b11a082;p=helm.git

Enrico: bugfix, remove depend.errors upon destroy
---

diff --git a/matita/matitamakeLib.ml b/matita/matitamakeLib.ml
index ec9a40b81..503ed210f 100644
--- a/matita/matitamakeLib.ml
+++ b/matita/matitamakeLib.ml
@@ -282,11 +282,7 @@ let clean_development_in_bg ?matita_flags  refresh_cb development =
 
 let destroy_development_aux development clean_development =
   let delete_development development = 
-    let unlink file =
-      try 
-        Unix.unlink file 
-      with Unix.Unix_error _ -> logger `Debug ("Unable to delete " ^ file)
-    in
+    let unlink = HExtlib.safe_remove in
     let rmdir dir =
       try
         Unix.rmdir dir 
@@ -300,6 +296,7 @@ let destroy_development_aux development clean_development =
     unlink (makefile_for_development development);
     unlink (pool () ^ development.name ^ rootfile);
     unlink (pool () ^ development.name ^ "/depend");
+    unlink (pool () ^ development.name ^ "/depend.errors");
     rmdir (pool () ^ development.name);
     developments := 
       List.filter (fun d -> d.name <> development.name) !developments