calls-recursively? ( nodes word -- ? )

Vocabulary

lint.private

Inputs

nodes	an object
word	an object

Outputs

?

an object

Definition

USING: accessors compiler.tree compiler.tree.combinators kernel
;

IN: lint.private

: calls-recursively? ( nodes word -- ? )
    swap [
        dup #call-recursive?
        [ label>> word>> over eq? ] [ drop f ] if
    ] contains-node? nip ;