sequence/tester ( set1 set2 -- set1' quot )

Vocabulary

sets.private

Inputs

set1	an object
set2	an object

Outputs

set1'	an object
quot	an object

Definition

USING: kernel sets ;

IN: sets.private

: sequence/tester ( set1 set2 -- set1' quot )
    [ members ] [ tester ] bi* ; inline