(PAIR-M:) ( -- )

Vocabulary

pair-methods

Inputs

None

Outputs

None

Definition

USING: kernel math.order parser ;

IN: pair-methods

: (PAIR-M:) ( -- )
    scan-word scan-word 2dup <=> +gt+ eq?
    [ ?swap scan-word parse-definition ] keep ?prefix-swap
    define-pair-method ;