>mask ( symbols assoc -- bits )

Vocabulary

math.floats.env.private

Inputs

symbols	an object
assoc	an object

Outputs

bits

an object

Definition

USING: assocs kernel math sequences ;

IN: math.floats.env.private

: >mask ( symbols assoc -- bits )
    over empty?
    [ 2drop 0 ] [ [ at ] curry [ bitor ] map-reduce ] if ;