remask ( x new-bits mask-bits -- x' )

Vocabulary

math.floats.env.private

Inputs

x	an object
new-bits	an object
mask-bits	an object

Outputs

x'

an object

Definition

USING: kernel math math.bitwise ;

IN: math.floats.env.private

: remask ( x new-bits mask-bits -- x' )
    [ unmask ] [ mask ] bi-curry bi* bitor ; inline