steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Slava Pestov 2010-05-04 18:21:12 -04:00
parent f693e64798
commit d051df31a5
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
extra/mason/release/tidy/tidy.factor
View File

@ -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 ;