sort-loop ( merge quot -- )


Vocabulary
sorting.private

Inputs
mergean object
quotan object


Outputs
None

Definition
USING: accessors kernel math sequences ;

IN: sorting.private

: sort-loop ( merge quot -- )
[ 2 over seq>> length [ over > ] curry ] dip
[ [ 1 shift ] dip [ sort-pass ] curry 2keep ] curry while
2drop ; inline