pop-back/new ( list back -- )

Vocabulary

unrolled-lists.private

Inputs

list	an object
back	an 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