bit-set-op ( set1 set2 quot: ( a b -- c ) -- bit-set )

Vocabulary

bit-sets.private

Inputs

set1	an object
set2	an object
quot	a quotation with stack effect ( a b -- c )

Outputs

bit-set

an object

Definition

USING: bit-sets kernel ;

IN: bit-sets.private

: bit-set-op ( set1 set2 quot: ( a b -- c ) -- bit-set )
    [ (bit-set-op) ] dip bit-set-map bit-set boa ; inline