inline-word ( #call word -- ? )

Vocabulary

compiler.tree.propagation.inlining

Inputs

#call	an object
word	an object

Outputs

?

an object

Definition

USING: accessors kernel ;

IN: compiler.tree.propagation.inlining

:: inline-word ( #call word -- ? )
    word already-inlined?
    [ f ] [
        #call word splicing-body [
            word add-to-history #call body<<
            #call propagate-body
        ] [ f ] if*
    ] if ;