(collect-with-previous) ( quot into -- quot' )

Vocabulary

sequences.extras

Inputs

quot	a quotation
into	an object

Outputs

quot'

a quotation

Definition

USING: kernel sequences.private ;

IN: sequences.extras

: (collect-with-previous) ( quot into -- quot' )
    [ [ keep ] dip [ set-nth-unsafe ] keepdd ] 2curry ; inline