1 ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: arrays continuations io.directories
4 io.directories.hierarchy io.files io.launcher kernel
5 mason.common mason.config mason.platform namespaces ;
8 : compress ( filename -- )
9 dup exists? [ "bzip2" swap 2array try-output-process ] [ drop ] if ;
11 : compress-image ( -- )
12 boot-image-name compress ;
14 : compress-test-log ( -- )
22 "factor" really-delete-tree