20 lines
654 B
Factor
20 lines
654 B
Factor
! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: bootstrap.image continuations debugger fry io.directories
|
|
io.directories.hierarchy io.encodings.ascii io.files io.launcher
|
|
kernel mason.common namespaces sequences ;
|
|
FROM: mason.config => target-os ;
|
|
IN: mason.release.tidy
|
|
|
|
: useless-files ( -- seq )
|
|
"build-support/cleanup" ascii file-lines
|
|
images [ boot-image-name ] map append
|
|
target-os get "macosx" = [ "Factor.app" suffix ] unless ;
|
|
|
|
: tidy ( -- )
|
|
"factor" [
|
|
useless-files
|
|
[ exists? ] filter
|
|
[ really-delete-tree ] each
|
|
] with-directory ;
|