contains-node? ( ... nodes quot: ( ... node -- ... ? ) -- ... ? )


Vocabulary
compiler.tree.combinators

Inputs
nodesan object
quota quotation with stack effect ( ... node -- ... ? )


Outputs
?an object


Definition
USING: combinators combinators.short-circuit kernel sequences ;

IN: compiler.tree.combinators

:: contains-node?
( ... nodes quot: ( ... node -- ... ? ) -- ... ? )
nodes [
{
quot
[
{
{ ~quotation~ ~quotation~ }
{ ~quotation~ ~quotation~ }
{ ~quotation~ ~quotation~ }
[ drop f ]
} cond
]
} 1||
] any? ; inline recursive