Handbook Glossary
factorcode.org
normalize-front ( list -- )


Vocabulary
unrolled-lists.private

Inputs
listan object


Outputs
None

Definition
USING: accessors kernel ;

IN: unrolled-lists.private

: normalize-front ( list -- )
dup front>>
[ dup next>> [ drop ] [ swap back>> >>next ] if ]
[ dup back>> >>front ] if* drop ; inline