inline-custom ( #call word -- ? )

Vocabulary

compiler.tree.propagation.inlining

Inputs

#call	an object
word	an object

Outputs

?

an object

Definition

USING: combinators kernel ;

IN: compiler.tree.propagation.inlining

: inline-custom ( #call word -- ? )
    [ dup ] [ custom-inlining? ] bi*
    ( #call -- word/quot/f ) call-effect
    object swap eliminate-dispatch ;