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 [ inc-at ] curry
        [ [ blocks>> members ] ] dip [ each ] curry compose each
    ] keep loop-nesting set ;