pop-back/existing ( list back -- )

Vocabulary

unrolled-lists.private

Inputs

list	an object
back	an object

Outputs

None

Definition

USING: accessors kernel math sequences.private ;

IN: unrolled-lists.private

: pop-back/existing ( list back -- )
    [ [ 1 - ] change-back-pos ] dip
    [ dup back-pos>> ] [ data>> ] bi* [ 0 ] 2dip set-nth-unsafe
    clear-if-empty ; inline