suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix expt on negative powers of -inf.0 and +inf.0

Browse Source 
svn: r2355
This commit is contained in:
Matthew Flatt 2006-03-03 14:34:30 +00:00
parent e641f9af50
commit c81cdb47b9
1 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/mzscheme/src/number.c
View File

@ -1857,17 +1857,31 @@ static double sch_pow(double x, double y)
} else if (MZ_IS_POS_INFINITY(x)) { } else if (MZ_IS_POS_INFINITY(x)) {
if (y == 0.0) if (y == 0.0)
return 1.0; return 1.0;
else if (y < 0)
return 0.0;
else else
return scheme_infinity_val; return scheme_infinity_val;
} else if (MZ_IS_NEG_INFINITY(x)) { } else if (MZ_IS_NEG_INFINITY(x)) {
if (y == 0.0) if (y == 0.0)
return 1.0; return 1.0;
else { else {
if (fmod(y, 2.0) == 1.0) int neg = 0;
if (y < 0) {
neg = 1;
y = -y;
}
if (fmod(y, 2.0) == 1.0) {
if (neg)
return scheme_floating_point_nzero;
else
return scheme_minus_infinity_val; return scheme_minus_infinity_val;
} else {
if (neg)
return 0.0;
else else
return scheme_infinity_val; return scheme_infinity_val;
} }
}
} else } else
return pow(x, y); return pow(x, y);
} }