pair-match-condition ( pair -- quot )


Vocabulary
pair-methods

Inputs
pairan object


Outputs
quotan object


Definition
USING: classes kernel sequences ;

IN: pair-methods

: pair-match-condition ( pair -- quot )
first2 [ [ instance? ] swap prefix ] bi@ [ ] 2sequence
[ 2dup ] [ bi* and ] surround ;