sort-pass ( merge size quot -- )

Vocabulary

sorting.private

Inputs

merge	an object
size	an object
quot	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: sorting.private

: sort-pass ( merge size quot -- )
    [ over flip-accum over [ seq>> length ] 2dip ] dip
    [ merge ] 2curry each-chunk ; inline