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

Vocabulary

unrolled-lists.private

Inputs

elt	an object
list	an object
front	an 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