sort-pairs ( merge quot -- )

Vocabulary

sorting.private

Inputs

merge	an object
quot	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: sorting.private

: sort-pairs ( merge quot -- )
    [ [ seq>> ] [ accum>> ] bi ] dip swap
    [ (sort-pairs) ] 2curry each-pair ; inline