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

also forgot to propagate the sign in bignum_to_double

Browse source
This commit is contained in:
Alex Shinn 2010-01-02 12:19:00 +09:00
parent 227a094399
commit 7c08c67815
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
opt/bignum.c
View file

@ -143,7 +143,7 @@ double sexp_bignum_to_double (sexp a) {
sexp_uint_t *data=sexp_bignum_data(a);
for (i=sexp_bignum_hi(a)-1; i>=0; i--)
res = res * ((double)SEXP_UINT_T_MAX+1) + data[i];
return res;
return res * sexp_bignum_sign(a);
}
sexp sexp_bignum_fxadd (sexp ctx, sexp a, sexp_uint_t b) {