drop ; inline
M: unrolled-list pop-front*
- dup front>> [ empty-unrolled-list ] unless*
+ dup front>> [ throw-empty-unrolled-list ] unless*
over front-pos>> unroll-factor 1 - eq?
[ pop-front/new ] [ pop-front/existing ] if ;
drop ; inline
M: unrolled-list pop-back*
- dup back>> [ empty-unrolled-list ] unless*
+ dup back>> [ throw-empty-unrolled-list ] unless*
over back-pos>> 1 eq?
[ pop-back/new ] [ pop-back/existing ] if ;