(unrolled-collect) ( quot into -- quot' )


Vocabulary
sequences.unrolled.private

Inputs
quotan object
intoan object


Outputs
quot'an object


Definition
USING: kernel sequences.private ;

IN: sequences.unrolled.private

: (unrolled-collect) ( quot into -- quot' )
[ [ [ dup ] ] dip [ swap ] compose compose ] dip
[ set-nth-unsafe ] curry compose ; inline