inlined? ( quot seq/word -- ? )

Vocabulary

compiler.tree.debugger

Inputs

quot	an object
seq/word	an object

Outputs

?

an object

Definition

USING: accessors arrays compiler.tree compiler.tree.combinators
kernel make sequences sets words ;

IN: compiler.tree.debugger

: inlined? ( quot seq/word -- ? )
    dup word? [ 1array ] when swap [
        cleaned-up-tree
        [ dup #call? [ word>> , ] [ drop ] if ] each-node
    ] V{ } make intersect empty? ;