splicing-body ( #call quot/word -- nodes/f )
Method inlining and dispatch elimination
Prev:open-code-#call ( #call word/quot -- nodes/f )


Vocabulary
compiler.tree.propagation.inlining

Inputs
#callan object
quot/wordan object


Outputs
nodes/fan object


Definition
USING: compiler.tree.normalization compiler.tree.recursive
kernel ;

IN: compiler.tree.propagation.inlining

: splicing-body ( #call quot/word -- nodes/f )
open-code-#call dup [ analyze-recursive normalize ] when ;