each-incoming-j-edge ( ... bb quot: ( ... from to -- ... ) -- ... )

Vocabulary

compiler.cfg.ssa.construction.tdmsc.private

Inputs

bb	an object
quot	a quotation with stack effect ( ... from to -- ... )

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: compiler.cfg.ssa.construction.tdmsc.private

: each-incoming-j-edge
    ( ... bb quot: ( ... from to -- ... ) -- ... )
    [ [ predecessors>> ] keep ] dip
    [ [ 2dup j-edge? ] curry ] dip [ [ 2drop ] if ] curry
    compose each ; inline