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 sets ;

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

: process-edge ( from to visited -- )
    [ 2over 2array swap ?adjoin ] keep [ (process-edge) ] curry
    [ 2drop ] if ;