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 [
        [ push-at ] curry [ [ 2dup eq? [ 2drop ] ] ] dip
        [ if ] curry compose assoc-each
    ] keep [ [ number>> ] sort-by ] assoc-map ;