eliminate-dispatch ( #call class/f word/quot/f -- ? )

Vocabulary

compiler.tree.propagation.inlining

Inputs

#call	an object
class/f	an object
word/quot/f	an object

Outputs

?

an object

Definition

USING: accessors kernel ;

IN: compiler.tree.propagation.inlining

: eliminate-dispatch ( #call class/f word/quot/f -- ? )
    dup [
        [ >>class ] dip over method>> over =
        [ drop propagate-body ] [
            2dup splicing-nodes dup
            [ [ >>method ] [ >>body ] bi* propagate-body ]
            [ 2drop undo-inlining ] if
        ] if
    ] [ 2drop undo-inlining ] if ;