report-pow-underflow ( x y result -- result )

Vocabulary

math.libm.private

Inputs

x	an object
y	an object
result	an object

Outputs

result

an object

Definition

USING: kernel math math.libm ;

IN: math.libm.private

:: report-pow-underflow ( x y result -- result )
    result zero? x zero? not and x fp-special? not and
    y fp-special? not and [ 1e-300 1e-300 0.0 ffma drop ] when
    result ;