method-for-class ( class generic -- method/f )

Vocabulary

generic

Inputs

class	an object
generic	an object

Outputs

method/f

an object

Definition

USING: assocs classes.private kernel namespaces ;

IN: generic

: method-for-class ( class generic -- method/f )
    method-for-class-cache get [
        [ nip ] [ nearest-class ] 2bi
        [ swap ?lookup-method ] [ drop f ] if*
    ] 2cache ;