normalize-front ( list -- )

Vocabulary

unrolled-lists.private

Inputs

list

an 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