lookup-header ( header -- loop )

Vocabulary

compiler.cfg.loop-detection.private

Inputs

header

an object

Outputs

loop

an object

Definition

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

IN: compiler.cfg.loop-detection.private

: lookup-header ( header -- loop )
    loops get dup [ assoc-size <natural-loop> ] curry cache ;