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

use fabsl instead of abs on long double

Browse source
This commit is contained in:
Alex Shinn 2017-08-29 22:50:52 +09:00
parent 8a9d8c0979
commit b1307a67f5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sexp.c
View file

@ -2478,7 +2478,7 @@ sexp sexp_read_float_tail (sexp ctx, sexp in, double whole, int negp) {
#endif #endif
} }
if (e != 0.0) if (e != 0.0)
val = abs(e) > 320 ? exp(log(val) + e*M_LN10) : val * pow(10, e); val = fabsl(e) > 320 ? exp(log(val) + e*M_LN10) : val * pow(10, e);
#if SEXP_USE_FLONUMS #if SEXP_USE_FLONUMS
res = sexp_make_flonum(ctx, val); res = sexp_make_flonum(ctx, val);
#else #else