push-method ( method class atomic assoc -- )

Vocabulary

generic.single

Inputs

method	an object
class	an object
atomic	an object
assoc	an object

Outputs

None

Definition

USING: accessors assocs kernel ;

IN: generic.single

: push-method ( method class atomic assoc -- )
    dupd [
        or? [ H{ } clone <predicate-engine> ] unless
        [ methods>> set-at ] keep
    ] change-at ;