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

Conservatively reducing an initial estimate.

Browse source
This commit is contained in:
Alex Shinn 2013-01-05 23:54:27 +09:00
parent 0daa2f270a
commit 2f56d37f0c
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

@ -477,7 +477,7 @@ sexp sexp_bignum_expt (sexp ctx, sexp a, sexp b) {
return sexp_bignum_normalize(res); return sexp_bignum_normalize(res);
} }
#define SEXP_MAX_ACCURATE_FLONUM_SQRT 1.15292150460685e18 /* 2^60 */ #define SEXP_MAX_ACCURATE_FLONUM_SQRT 1.12589990684262e15 /* 2^50 */
sexp sexp_bignum_sqrt (sexp ctx, sexp a) { /* Babylonian method */ sexp sexp_bignum_sqrt (sexp ctx, sexp a) { /* Babylonian method */
sexp_gc_var4(res, rem, tmp, tmpa); sexp_gc_var4(res, rem, tmp, tmpa);