<front-node> ( elt front -- node )

Vocabulary

unrolled-lists.private

Inputs

elt	an object
front	an object

Outputs

node

an object

Definition

USING: accessors arrays kernel math sequences unrolled-lists ;

IN: unrolled-lists.private

: <front-node> ( elt front -- node )
    [
        unroll-factor 0 <array>
        [ unroll-factor 1 - swap set-nth ] keep f
    ] dip [ node boa dup ] keep [ prev<< ] [ drop ] if* ; inline