(shift-with-epsilon) ( epsilon? num den scale -- epsilon?' num' den scale )

Vocabulary

math.integers.private

Inputs

epsilon?	an object
num	an object
den	an object
scale	an object

Outputs

epsilon?'	an object
num'	an object
den	an object
scale	an object

Definition

USING: kernel math ;

IN: math.integers.private

: (shift-with-epsilon)
    ( epsilon? num den scale -- epsilon?' num' den scale )
    [
        nip 1021 +
        [ neg 2^ 1 - bitand zero? not or ] [ shift ] 2bi
    ] 2keep ; inline