diff --git a/bignum.c b/bignum.c index 71524faf..de697f98 100644 --- a/bignum.c +++ b/bignum.c @@ -477,6 +477,8 @@ sexp sexp_bignum_expt (sexp ctx, sexp a, sexp b) { return sexp_bignum_normalize(res); } +#if SEXP_USE_MATH + #define SEXP_MAX_ACCURATE_FLONUM_SQRT 1.12589990684262e15 /* 2^50 */ sexp sexp_bignum_sqrt (sexp ctx, sexp a) { /* Babylonian method */ @@ -515,6 +517,8 @@ sexp sexp_bignum_sqrt (sexp ctx, sexp a) { /* Babylonian method */ return sexp_bignum_normalize(res); } +#endif /* SEXP_USE_MATH */ + /************************ ratios ******************************/ #if SEXP_USE_RATIOS