detect-cross-frame-calls ( call-graph -- )

Vocabulary

compiler.tree.recursive.private

Inputs

call-graph

an object

Outputs

None

Definition

USING: accessors kernel namespaces sequences ;

IN: compiler.tree.recursive.private

: detect-cross-frame-calls ( call-graph -- )
    [
        [ recursive-nesting get push ]
        [ calls>> [ check-cross-frame-call ] each ]
        [ children>> detect-cross-frame-calls ] tri
        recursive-nesting get pop*
    ] each ;