(2/-with-epsilon) ( epsilon? num -- epsilon?' num' )

Vocabulary

math.integers.private

Inputs

epsilon?	an object
num	an object

Outputs

epsilon?'	an object
num'	an object

Definition

USING: kernel math ;

IN: math.integers.private

: (2/-with-epsilon) ( epsilon? num -- epsilon?' num' )
    [ 1 bitand zero? not or ] [ 2/ ] bi ; inline