create-method ( classes generic -- method )

Vocabulary

multi-methods

Inputs

classes	an object
generic	an object

Outputs

method

an object

Definition

USING: kernel ;

IN: multi-methods

: create-method ( classes generic -- method )
    2dup method dup
    [ 2nip ] [ drop [ <method> dup ] 2keep reveal-method ] if ;