each-phi ( ... bb quot: ( ... ##phi -- ... ) -- ... )

Vocabulary

compiler.cfg.utilities

Inputs

bb	an object
quot	a quotation with stack effect ( ... ##phi -- ... )

Outputs

None

Definition

USING: accessors compiler.cfg.instructions kernel sequences ;

IN: compiler.cfg.utilities

: each-phi ( ... bb quot: ( ... ##phi -- ... ) -- ... )
    [ instructions>> ] dip [ t ] compose [ [ dup ##phi? ] ] dip
    [ [ drop f ] if ] curry compose all? drop ; inline