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


Vocabulary
unrolled-lists.private

Inputs
eltan object
listan object
frontan object


Outputs
None

Definition
USING: accessors kernel math sequences.private ;

IN: unrolled-lists.private

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