l-next ( merge -- )

Vocabulary

sorting.private

Inputs

merge

an object

Outputs

None

Definition

USING: accessors growable.private kernel math ;

IN: sorting.private

: l-next ( merge -- )
    [ l-elt ] [ [ 1 + ] change-from1 accum>> ] bi push-unsafe ;
    inline