(process-edge) ( from to visited -- )

Vocabulary

compiler.cfg.ssa.construction.tdmsc.private

Inputs

from	an object
to	an object
visited	an object

Outputs

None

Definition

USING: arrays kernel namespaces sets ;

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

: (process-edge) ( from to visited -- )
    [ f walk ] dip [ [ 2dup 2array ] ] dip
    [ in? [ consistent? [ again? on ] unless ] [ 2drop ] if ]
    curry compose each-incoming-j-edge ;