mason.release.tidy: don't die if file doesn't exist

diff --git a/extra/mason/release/tidy/tidy.factor b/extra/mason/release/tidy/tidy.factor
index 054b15f0f59a97e5cd58bf8489d585d59d55db73..f3989ab7404f66a3e9b38abf963cd0ccaa9d0a33 100644 (file)
--- a/extra/mason/release/tidy/tidy.factor
+++ b/extra/mason/release/tidy/tidy.factor
@@ -6,17 +6,14 @@ kernel mason.common namespaces sequences ;
 FROM: mason.config => target-os ;
 IN: mason.release.tidy
 
-: common-files ( -- seq )
+: useless-files ( -- seq )
     "build-support/cleanup" ascii file-lines
-    images [ boot-image-name ] map
-    append ;
-
-: remove-common-files ( -- )
-    common-files [ really-delete-tree ] each ;
-
-: remove-factor-app ( -- )
-    target-os get "macosx" =
-    [ "Factor.app" really-delete-tree ] unless ;
+    images [ boot-image-name ] map append
+    target-os get "macosx" = [ "Factor.app" suffix ] unless ;
 
 : tidy ( -- )
-    "factor" [ remove-factor-app remove-common-files ] with-directory ;
+    "factor" [
+        useless-files
+        [ exists? ] filter
+        [ really-delete-tree ] each
+    ] with-directory ;