normalize-back ( list -- )

Vocabulary

unrolled-lists.private

Inputs

list

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: unrolled-lists.private

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