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

Fixing fixnum results with remainders in bignum sqrt.

Browse source
This commit is contained in:
Alex Shinn 2013-01-05 23:38:20 +09:00
parent c5e4384821
commit c559ae11be
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bignum.c
View file

@ -509,7 +509,7 @@ sexp sexp_bignum_sqrt (sexp ctx, sexp a) { /* Babylonian method */
/* convert back to inexact if non-zero remainder */ /* convert back to inexact if non-zero remainder */
rem = sexp_bignum_normalize(rem); rem = sexp_bignum_normalize(rem);
if (rem != SEXP_ZERO) if (rem != SEXP_ZERO)
res = sexp_make_flonum(ctx, sexp_bignum_to_double(res)); res = sexp_make_flonum(ctx, sexp_fixnump(res) ? sexp_unbox_fixnum(res) : sexp_bignum_to_double(res));
} }
sexp_gc_release4(ctx); sexp_gc_release4(ctx);
return sexp_bignum_normalize(res); return sexp_bignum_normalize(res);