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 2dup ] dip sort-pass ] curry while 2drop ;
inline