2each-until ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... ? ) -- ... all-failed? )

Vocabulary

logic.private

Inputs

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

Outputs

all-failed?

an object

Definition

USING: kernel sequences.generalizations ;

IN: logic.private

: 2each-until
    ( ... seq1 seq2 quot: ( ... elt1 elt2 -- ... ? ) -- ... all-failed? )
    2 nfind 2drop f = ; inline