real^? ( x y -- ? )

Vocabulary

math.functions.private

Inputs

x	an object
y	an object

Outputs

?

an object

Definition

USING: kernel math ;

IN: math.functions.private

: real^? ( x y -- ? )
    2dup [ real? ] both? [ drop 0 >= ] [ 2drop f ] if ; inline