compress ( filename -- )

Vocabulary

mason.cleanup

Inputs

filename

an object

Outputs

None

Definition

USING: arrays io.files kernel mason.common ;

IN: mason.cleanup

: compress ( filename -- )
    [ "bzip2" swap 2array short-running-process ]
    when-file-exists ;