Vocabulary
generic

Inputs and outputs

class	a class
generic	a generic
method	a method

Word description
Creates a method or returns an existing one. This is the runtime equivalent of M:.

Notes
To define a method, pass the output value to define.

See also
lookup-method, ?lookup-method

Definition

USING: classes.private kernel words ;

IN: generic

: create-method ( class generic -- method )
2dup ?lookup-method dup
[ 2nip dup reset-generic ]
[ drop [ <method> dup ] 2keep reveal-method reset-caches ]
if ;