compress-quotations ( -- )

Vocabulary

tools.deploy.shaker

Inputs

None

Outputs

None

Definition

USING: accessors kernel memory quotations sequences ;

IN: tools.deploy.shaker

: compress-quotations ( -- )
    [ quotation? ] [ remain-compiled ] "quotations" compress
    [ quotation? ] instances
    [ f >>cached-effect f >>cache-counter drop ] each ;