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

Vocabulary

generic

Inputs

class	an object
generic	an object

Outputs

method/f

an object

Definition

USING: kernel ;

IN: generic

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