collect-edges ( blocks -- )

Vocabulary

compiler.cfg.checker.private

Inputs

blocks

an object

Outputs

None

Definition

USING: accessors assocs kernel namespaces sequences ;

IN: compiler.cfg.checker.private

:: collect-edges ( blocks -- )
    H{ } clone :> edges blocks
    [ V{ } clone swap edges set-at ] each blocks [| bb |
        bb successors>>
        [| successor | bb successor edges push-at ] each
    ] each edges expected-predecessors set ;