bit-set-like ( set bit-set -- bit-set' )

Vocabulary

bit-sets.private

Inputs

set	an object
bit-set	an object

Outputs

bit-set'

an object

Definition

USING: accessors bit-sets kernel sequences sets ;

IN: bit-sets.private

: bit-set-like ( set bit-set -- bit-set' )
    over bit-set? [ 2dup [ table>> length ] same? ] [ f ] if
    [ drop ] [
        [ members ] dip table>> length <bit-set>
        [ adjoin-all ] keep
    ] if ;