pop-front/new ( list front -- )


Vocabulary
unrolled-lists.private

Inputs
listan object
frontan object


Outputs
None

Definition
USING: accessors kernel ;

IN: unrolled-lists.private

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