pop-back/new ( list back -- )


Vocabulary
unrolled-lists.private

Inputs
listan object
backan object


Outputs
None

Definition
USING: accessors kernel unrolled-lists ;

IN: unrolled-lists.private

: pop-back/new ( list back -- )
[ unroll-factor >>back-pos ] dip [ f ] change-prev drop dup
[ f >>next ] when >>back dup back>>
[ normalize-front ] [ f >>front drop ] if ; inline