mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-03 07:51:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed typo.

Browse source
This commit is contained in:
jgarcia 2006-10-22 19:03:47 +00:00
parent fdf09f5850
commit 9aef6425e2
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/num_co.d
View file

@ -762,7 +762,7 @@ static double
round_double(double d)
{
if (d > 0) {
double q = floor(q + 0.5);
double q = floor(d + 0.5);
d -= q;
if (d == 0.5) {
double x = q / 10;
@ -782,7 +782,7 @@ static long double
round_long_double(long double d)
{
if (d > 0) {
long double q = floorl(q + 0.5);
long double q = floorl(d + 0.5);
d -= q;
if (d == 0.5) {
long double x = q / 10;