From 6e0bbfcbf3a704139d9fcaa23c178506a611569c Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 4 May 2010 18:21:12 -0400 Subject: [PATCH] mason.release.tidy: don't die if file doesn't exist --- extra/mason/release/tidy/tidy.factor | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) diff --git a/extra/mason/release/tidy/tidy.factor b/extra/mason/release/tidy/tidy.factor index 054b15f0f5..f3989ab740 100644 --- 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 ;