From 2f56d37f0cc9e26ed9aab266a58d9aa81035d574 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 5 Jan 2013 23:54:27 +0900 Subject: [PATCH] Conservatively reducing an initial estimate. --- bignum.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bignum.c b/bignum.c index 439a8267..91a53ef0 100644 --- a/bignum.c +++ b/bignum.c @@ -477,7 +477,7 @@ sexp sexp_bignum_expt (sexp ctx, sexp a, sexp b) { 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_gc_var4(res, rem, tmp, tmpa);