compress ( pred post-process string -- )


Vocabulary
tools.deploy.shaker

Inputs
predan object
post-processan object
stringan 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