define-pair-method ( a b pair-generic definition -- )

Vocabulary

pair-methods

Inputs

a	an object
b	an object
pair-generic	an object
definition	an object

Outputs

None

Definition

USING: arrays assocs kernel words ;

IN: pair-methods

: define-pair-method ( a b pair-generic definition -- )
    [ 2array ] 2dip swap
    [ "pair-generic-methods" word-prop swapd set-at ]
    [ make-pair-generic ] bi ;