convert-methods ( assoc class word -- assoc' )


Vocabulary
generic.single

Definition
USING: assocs kernel ;

IN: generic.single

: convert-methods ( assoc class word -- assoc' )
over [ split-methods ] 2dip pick assoc-empty?
[ 3drop ] [ [ execute ] dip pick set-at ] if ; inline