Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing exact-integer-sqrt on linux.

Browse source
This commit is contained in:
Alex Shinn 2014-06-23 15:41:50 +00:00
parent 40391a9ad3
commit daa2d96ff0
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
bignum.c
View file

@ -636,9 +636,13 @@ sexp sexp_bignum_sqrt (sexp ctx, sexp a, sexp* rem_out) {
res = sexp_quotient(ctx, res, SEXP_TWO); res = sexp_quotient(ctx, res, SEXP_TWO);
goto loop; goto loop;
} }
/* convert back to inexact if non-zero remainder */ } else {
*rem_out = sexp_bignum_normalize(rem); if (sexp_flonump(res))
res = sexp_bignum_normalize(sexp_double_to_bignum(ctx, sexp_flonum_value(res)));
tmp = sexp_mul(ctx, res, res);
rem = sexp_sub(ctx, a, tmp);
} }
*rem_out = sexp_bignum_normalize(rem);
sexp_gc_release4(ctx); sexp_gc_release4(ctx);
return sexp_bignum_normalize(res); return sexp_bignum_normalize(res);
} }