flip-accum ( merge -- )

Vocabulary

sorting.private

Inputs

merge

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: sorting.private

: flip-accum ( merge -- )
    dup [ accum>> ] [ accum1>> ] bi eq?
    [ dup accum1>> underlying>> >>seq dup accum2>> >>accum ]
    [ dup accum1>> >>accum dup accum2>> underlying>> >>seq ] if
    dup accum>> 0 >>length 2drop ; inline