inlining-standard-method ( #call word -- class/f method/f )

Vocabulary

compiler.tree.propagation.inlining

Inputs

#call	an object
word	an object

Outputs

class/f	an object
method/f	an object

Definition

USING: accessors assocs compiler.tree.propagation.info generic
generic.single kernel math sequences words ;

IN: compiler.tree.propagation.inlining

: inlining-standard-method
    ( #call word -- class/f method/f )
    dup "methods" word-prop assoc-empty?
    [ 2drop f f ] [
        2dup [ in-d>> length ] [ dispatch# ] bi* <=
        [ 2drop f f ] [
            [ in-d>> <reversed> ] [ [ dispatch# ] keep ] bi*
            [ swap nth value-info class>> dup ] dip
            method-for-class
        ] if
    ] if ;