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


Vocabulary
unrolled-lists.private

Inputs
eltan object
listan object
backan 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