add-method-dependency ( #call -- )

Vocabulary

compiler.tree.cleanup

Inputs

#call

an object

Outputs

None

Definition

USING: accessors kernel stack-checker.dependencies words ;

IN: compiler.tree.cleanup

: add-method-dependency ( #call -- )
    dup method>> word? [
        [ [ class>> ] [ word>> ] bi add-depends-on-generic ] [
            [ class>> ] [ word>> ] [ method>> ] tri
            add-depends-on-method
        ] bi
    ] [ drop ] if ;