compress ( pred post-process string -- )

Vocabulary

tools.deploy.shaker

Inputs

pred	an object
post-process	an object
string	an object

Outputs

None

Definition

USING: assocs io.streams.c kernel kernel.private memory
sequences ;

IN: tools.deploy.shaker

: compress ( pred post-process string -- )
    "Compressing " prepend show
    [ instances dup H{ } clone [ [ ] cache ] curry map ] dip
    call become ; inline