Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-22 07:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

sexp_bignum_to_double was backwards

Browse source
This commit is contained in:
Alex Shinn 2010-01-02 01:15:26 +09:00
parent ad4f044963
commit 22968ec7b3
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
opt/bignum.c
View file

@ -139,8 +139,9 @@ sexp sexp_bignum_normalize (sexp a) {
double sexp_bignum_to_double (sexp a) { double sexp_bignum_to_double (sexp a) {
double res = 0; double res = 0;
sexp_uint_t i, *data=sexp_bignum_data(a); sexp_sint_t i;
for (i=0; i<sexp_bignum_length(a); i++) sexp_uint_t *data=sexp_bignum_data(a);
for (i=sexp_bignum_hi(a); i>=0; i--)
res = res * ((double)SEXP_UINT_T_MAX+1) + data[i]; res = res * ((double)SEXP_UINT_T_MAX+1) + data[i];
return res; return res;
} }