push-back/existing ( elt list back -- )

Vocabulary

unrolled-lists.private

Inputs

elt	an object
list	an object
back	an object

Outputs

None

Definition

USING: accessors kernel math sequences.private ;

IN: unrolled-lists.private

: push-back/existing ( elt list back -- )
    [ [ 1 + ] change-back-pos ] dip
    [ back-pos>> 1 - ] [ data>> ] bi* set-nth-unsafe ; inline