?pos ( n/f -- +n/f )

Vocabulary

math.parser.private

Inputs

n/f

an object

Outputs

+n/f

an object

Definition

USING: kernel math ;

IN: math.parser.private

: ?pos ( n/f -- +n/f )
    dup fp-nan?
    [ double>bits 63 2^ bitnot bitand bits>double ] when ;
    inline