update-call-sites ( class generic -- words )

Vocabulary

compiler.units

Inputs

class	an object
generic	an object

Outputs

words

an object

Definition

IN: compiler.units

HOOK: update-call-sites compiler-impl ( class generic -- words )

Methods

USING: compiler.units kernel ;

M: f update-call-sites 2drop { } ;


USING: assocs classes classes.algebra compiler compiler.crossref
compiler.units kernel sequences ;

M: optimizing-compiler update-call-sites
    generic-call-sites-of keys swap [
        [ [ classoid? ] both? ] 2check
        [ classes-intersect? ] [ 2drop f ] if
    ] curry filter ;