push-method ( method class atomic assoc -- )


Vocabulary
generic.single

Definition
USING: accessors assocs kernel ;

IN: generic.single

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