Remove really-delete-tree in favor of setting the file attributes to normal

on Windows deletes.

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 ;

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

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>

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 ;

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 ;