2sequence-index-iterator ( seq1 seq2 quot -- n quot' )

Vocabulary

sequences.extras.private

Inputs

seq1	an object
seq2	an object
quot	an object

Outputs

n	an object
quot'	an object

Definition

USING: kernel sequences.private ;

IN: sequences.extras.private

: 2sequence-index-iterator ( seq1 seq2 quot -- n quot' )
    [ 2length-iterator [ keep ] curry ] dip compose ; inline