compute-loop-nesting ( -- )

Vocabulary

compiler.cfg.loop-detection.private

Inputs

None

Outputs

None

Definition

USING: accessors assocs compiler.cfg.loop-detection kernel
namespaces sequences sets ;

IN: compiler.cfg.loop-detection.private

: compute-loop-nesting ( -- )
    loops get H{ } clone [
        [ values ] dip
        '[ blocks>> members [ _ inc-at ] each ] each
    ] keep loop-nesting set ;