2parallel-each ( seq1 seq2 quot: ( elt1 elt2 -- ) -- )
Concurrent combinators

Prev:	parallel-each ( seq quot: ( elt -- ) -- )
Next:	parallel-map ( seq quot: ( elt -- newelt ) -- newseq )

Vocabulary
concurrency.combinators

Inputs

seq1	a sequence
seq2	a sequence
quot	a quotation with stack effect ( elt1 elt2 -- )

Outputs
None

Word description
Spawns a new thread for applying quot to pairwise elements of seq1 and seq2, blocking until all quotations complete.

Errors
Throws an error if one of the iterations throws an error.

Definition

USING: concurrency.combinators.private concurrency.count-downs
kernel sequences ;

IN: concurrency.combinators

: 2parallel-each ( seq1 seq2 quot: ( elt1 elt2 -- ) -- )
    2over min-length [
        [ [ 2curry ] curry ] dip [ spawn-stage ] curry compose
        2each
    ] (parallel-each) ; inline