mark-loops ( call-graph -- )

Vocabulary

compiler.tree.recursive.private

Inputs

call-graph

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: compiler.tree.recursive.private

: mark-loops ( call-graph -- )
    [
        [ label>> dup not-a-loop? [ t >>loop? ] unless drop ]
        [ children>> mark-loops ] bi
    ] each ;