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

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

@ -1857,16 +1857,30 @@ static double sch_pow(double x, double y)
} else if (MZ_IS_POS_INFINITY(x)) {
if (y == 0.0)
return 1.0;
else if (y < 0)
return 0.0;
else
return scheme_infinity_val;
} else if (MZ_IS_NEG_INFINITY(x)) {
if (y == 0.0)
return 1.0;
else {
if (fmod(y, 2.0) == 1.0)
return scheme_minus_infinity_val;
else
return scheme_infinity_val;
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;
} else {
if (neg)
return 0.0;
else
return scheme_infinity_val;
}
}
} else
return pow(x, y);