compute-midpoint ( merge -- merge )


Vocabulary
sorting.private

Inputs
mergean object


Outputs
mergean object


Definition
USING: accessors kernel math ;

IN: sorting.private

: compute-midpoint ( merge -- merge )
dup [ from1>> ] [ to2>> ] bi + 2/ >>to1 ; inline