Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

sexp_bignum_sqrt is only needed if SEXP_USE_MATH is enabled.

Browse source
This commit is contained in:
ashinn 2013-03-23 21:16:21 +01:00
parent ec8255a27b
commit b16a214fee
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
bignum.c
View file

@ -477,6 +477,8 @@ sexp sexp_bignum_expt (sexp ctx, sexp a, sexp b) {
return sexp_bignum_normalize(res); return sexp_bignum_normalize(res);
} }
#if SEXP_USE_MATH
#define SEXP_MAX_ACCURATE_FLONUM_SQRT 1.12589990684262e15 /* 2^50 */ #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 */
@ -515,6 +517,8 @@ sexp sexp_bignum_sqrt (sexp ctx, sexp a) { /* Babylonian method */
return sexp_bignum_normalize(res); return sexp_bignum_normalize(res);
} }
#endif /* SEXP_USE_MATH */
/************************ ratios ******************************/ /************************ ratios ******************************/
#if SEXP_USE_RATIOS #if SEXP_USE_RATIOS