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

Vocabulary

generic.single

Inputs

assoc	an object
class	an object
word	an object

Outputs

assoc'

an object

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