<back-node> ( elt back -- node )


Vocabulary
unrolled-lists.private

Inputs
eltan object
backan object


Outputs
nodean object


Definition
USING: accessors arrays kernel sequences unrolled-lists ;

IN: unrolled-lists.private

: <back-node> ( elt back -- node )
[ unroll-factor 0 <array> [ set-first ] keep ] dip
[ f node boa dup ] keep [ next<< ] [ drop ] if* ; inline