pop-front/existing ( list front -- )

Vocabulary

unrolled-lists.private

Inputs

list	an object
front	an object

Outputs

None

Definition

USING: accessors kernel math sequences.private ;

IN: unrolled-lists.private

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