each-insertion ( ... set bb quot: ( ... vreg loc -- ... ) -- ... )

Vocabulary

compiler.cfg.stacks.finalize

Inputs

set	an object
bb	an object
quot	a quotation with stack effect ( ... vreg loc -- ... )

Outputs

None

Definition

USING: accessors compiler.cfg.stacks.local kernel sequences sets
;

IN: compiler.cfg.stacks.finalize

: each-insertion
    ( ... set bb quot: ( ... vreg loc -- ... ) -- ... )
    [ members ] 2dip [ [ height>> local-loc>global ] curry ] dip
    [ [ [ [ loc>vreg ] ] ] dip [ bi ] curry compose ] dip
    compose each ; inline