push-front/new ( elt list -- )


Vocabulary
unrolled-lists.private

Inputs
eltan object
listan object


Outputs
None

Definition
USING: accessors math unrolled-lists ;

IN: unrolled-lists.private

: push-front/new ( elt list -- )
unroll-factor 1 - >>front-pos [ <front-node> ] change-front
normalize-back ; inline