detect-loops ( call-graph -- )

Vocabulary

compiler.tree.recursive.private

Inputs

call-graph

an object

Outputs

None

Definition

USING: kernel namespaces ;

IN: compiler.tree.recursive.private

: detect-loops ( call-graph -- )
    HS{ } clone not-loops set V{ } clone recursive-nesting set
    [ visit-back-edges ]
    [ [ detect-cross-frame-calls ] curry while-changing ] bi ;