From feeea080234b4d7313be43eb6ccd3da486db76f8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 19 Oct 2011 02:32:30 -0700
Subject: [PATCH] Remove really-delete-tree in favor of setting the file
 attributes to normal on Windows deletes.

---
 extra/mason/cleanup/cleanup.factor         |  2 +-
 extra/mason/common/common.factor           | 14 --------------
 extra/mason/git/git.factor                 |  6 +++---
 extra/mason/release/archive/archive.factor |  2 +-
 extra/mason/release/tidy/tidy.factor       |  2 +-
 5 files changed, 6 insertions(+), 20 deletions(-)

diff --git a/extra/mason/cleanup/cleanup.factor b/extra/mason/cleanup/cleanup.factor
index fb8e2e893a..6dd9e4c5e3 100644
--- a/extra/mason/cleanup/cleanup.factor
+++ b/extra/mason/cleanup/cleanup.factor
@@ -19,6 +19,6 @@ IN: mason.cleanup
         build-dir [
             compress-image
             compress-test-log
-            "factor" really-delete-tree
+            "factor" delete-tree
         ] with-directory
     ] unless ;
diff --git a/extra/mason/common/common.factor b/extra/mason/common/common.factor
index 8599c4e1d3..2a2d0ef98d 100644
--- a/extra/mason/common/common.factor
+++ b/extra/mason/common/common.factor
@@ -23,20 +23,6 @@ SYMBOL: current-git-id
     #! 30 minutes to complete, to catch hangs.
     >process 30 minutes >>timeout try-output-process ;
 
-HOOK: (really-delete-tree) os ( path -- )
-
-M: windows (really-delete-tree)
-    #! Workaround: Cygwin GIT creates read-only files for
-    #! some reason.
-    [ { "chmod" "ug+rw" "-R" } swap absolute-path suffix short-running-process ]
-    [ delete-tree ]
-    bi ;
-
-M: unix (really-delete-tree) delete-tree ;
-
-: really-delete-tree ( path -- )
-    dup exists? [ (really-delete-tree) ] [ drop ] if ;
-
 : retry ( n quot -- )
     [ iota ] dip
     '[ drop @ f ] attempt-all drop ; inline
diff --git a/extra/mason/git/git.factor b/extra/mason/git/git.factor
index 9740a6ebe5..9aeeda8268 100644
--- a/extra/mason/git/git.factor
+++ b/extra/mason/git/git.factor
@@ -3,7 +3,7 @@
 USING: accessors combinators.short-circuit continuations
 debugger io io.directories io.encodings.utf8 io.files
 io.launcher io.sockets io.streams.string kernel mason.common
-mason.email sequences splitting ;
+mason.email sequences splitting io.directories.hierarchy ;
 IN: mason.git
 
 : git-id ( -- id )
@@ -42,7 +42,7 @@ IN: mason.git
 
 : git-repo-corrupted ( error -- )
     repo-corrupted-body "corrupted repo" email-fatal
-    "factor" really-delete-tree
+    "factor" delete-tree
     git-clone ;
 
 : git-pull-failed ( error -- )
@@ -84,7 +84,7 @@ IN: mason.git
 
 : git-repo-dirty ( files -- )
     repo-dirty-body "dirty repo" email-fatal
-    "factor" really-delete-tree
+    "factor" delete-tree
     git-clone ;
 
 PRIVATE>
diff --git a/extra/mason/release/archive/archive.factor b/extra/mason/release/archive/archive.factor
index d79ae8c833..a58d21f544 100644
--- a/extra/mason/release/archive/archive.factor
+++ b/extra/mason/release/archive/archive.factor
@@ -28,7 +28,7 @@ IN: mason.release.archive
     "dmg-root" make-directory
     "factor" "dmg-root" copy-tree-into
     "factor" "dmg-root" make-disk-image
-    "dmg-root" really-delete-tree ;
+    "dmg-root" delete-tree ;
 
 :: make-unix-archive ( archive-name -- )
     { "tar" "-cvzf" archive-name "factor" } short-running-process ;
diff --git a/extra/mason/release/tidy/tidy.factor b/extra/mason/release/tidy/tidy.factor
index cf82c43d06..29f01d7d92 100644
--- a/extra/mason/release/tidy/tidy.factor
+++ b/extra/mason/release/tidy/tidy.factor
@@ -15,5 +15,5 @@ IN: mason.release.tidy
     "factor" [
         useless-files
         [ exists? ] filter
-        [ really-delete-tree ] each
+        [ delete-tree ] each
     ] with-directory ;