push-echelon ( class method assoc -- )

Vocabulary

generic.single

Inputs

class	an object
method	an object
assoc	an object

Outputs

None

Definition

USING: assocs hashtables kernel sequences words ;

IN: generic.single

: push-echelon ( class method assoc -- )
    [ swap dup "layout" word-prop third ] dip
    [ ?set-at ] change-at ;