define-pair-generic ( word effect -- )

Vocabulary

pair-methods

Inputs

word	an object
effect	an object

Outputs

None

Definition

USING: kernel words ;

IN: pair-methods

: define-pair-generic ( word effect -- )
    [ set-stack-effect ]
    [ drop H{ } clone "pair-generic-methods" set-word-prop ]
    [ drop make-pair-generic ] 2tri ;