apply-passes ( passes -- quot: ( obj -- ) )

Vocabulary

compiler.cfg.utilities

Inputs

passes

an object

Outputs

quot	a quotation with stack effect ( obj -- )

Definition

USING: arrays kernel sequences ;

IN: compiler.cfg.utilities

MACRO: apply-passes ( passes -- quot: ( obj -- ) )
    unclip-last
    [ [ 1array \ dup prefix ] map [ ] concat-as ] dip suffix ;