compute-dom-children ( dom-parents -- dom-childrens )

Vocabulary

compiler.cfg.dominance.private

Inputs

dom-parents

an object

Outputs

dom-childrens

an object

Definition

USING: accessors assocs kernel sorting ;

IN: compiler.cfg.dominance.private

: compute-dom-children ( dom-parents -- dom-childrens )
    H{ } clone
    [ '[ 2dup eq? [ 2drop ] [ _ push-at ] if ] assoc-each ] keep
    [ [ number>> ] sort-by ] assoc-map ;