pair-generic-definition ( word -- def )


Vocabulary
pair-methods

Inputs
wordan object


Outputs
defan object


Definition
USING: classes combinators kernel math.order quotations
sequences ;

IN: pair-methods

: pair-generic-definition ( word -- def )
[ sorted-pair-methods [ first2 pair-method-cond ] map ]
[ [ no-pair-method ] curry suffix ] bi 1quotation
[ 2dup [ class-of ] compare +gt+ eq? ?swap ] [ cond ]
surround ;