2length-iterator ( seq1 seq2 -- n quot )


Vocabulary
sequences.private

Inputs
seq1an object
seq2an object


Outputs
nan object
quotan object


Definition
USING: kernel sequences ;

IN: sequences.private

: 2length-iterator ( seq1 seq2 -- n quot )
[ min-length check-length ] 2keep [ 2nth-unsafe ] 2curry ;
inline