array/tester ( hash-set1 hash-set2 -- array quot )

Vocabulary

hash-sets.private

Inputs

hash-set1	an object
hash-set2	an object

Outputs

array	an object
quot	an object

Definition

USING: accessors kernel sets ;

IN: hash-sets.private

: array/tester ( hash-set1 hash-set2 -- array quot )
    [ array>> ] dip [ in? ] curry ; inline