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

fixing #e prefix combined with non-finite flonums

Browse source
This commit is contained in:
Alex Shinn 2012-07-10 23:36:29 +09:00
parent 2d62671df8
commit 96d8c7d797
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
sexp.c
View file

@ -2602,6 +2602,12 @@ sexp sexp_read_raw (sexp ctx, sexp in) {
res = sexp_read_number(ctx, in, 16); break; res = sexp_read_number(ctx, in, 16); break;
case 'e': case 'E': case 'e': case 'E':
res = sexp_read(ctx, in); res = sexp_read(ctx, in);
#if SEXP_USE_INFINITIES
if (sexp_flonump(res)
&& (isnan(sexp_flonum_value(res)) || isinf(sexp_flonum_value(res))))
res = sexp_read_error(ctx, "can't convert non-finite flonum to exact", res, in);
else
#endif
if (sexp_flonump(res)) if (sexp_flonump(res))
#if SEXP_USE_RATIOS #if SEXP_USE_RATIOS
res = sexp_double_to_ratio(ctx, sexp_flonum_value(res)); res = sexp_double_to_ratio(ctx, sexp_flonum_value(res));