copy-superclass-methods ( engine superclass assoc -- )

Vocabulary

generic.single

Inputs

engine	an object
superclass	an object
assoc	an object

Outputs

None

Definition

USING: accessors assocs kernel ;

IN: generic.single

: copy-superclass-methods ( engine superclass assoc -- )
    at* [ [ methods>> ] bi@ assoc-union! drop ] [ 2drop ] if ;