2each-from ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... ) from -- ... )

Vocabulary

sequences

Inputs

seq1	an object
seq2	an object
quot	a quotation with stack effect ( ... elt1 elt2 -- ... )
from	an object

Outputs

None

Definition

USING: kernel math sequences.private ;

IN: sequences

: 2each-from
    ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... ) from -- ... )
    -roll 2length-operator each-integer-from ; inline