Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 21:47:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

exponents in numbers always indicate inexactness per R5RS (indirectly fixes issue 34)

Browse source
This commit is contained in:
Alex Shinn 2010-02-05 13:42:30 +09:00
parent 4020a1c1f6
commit 4dcfb8aa6b
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
sexp.c
View file

@ -1325,9 +1325,6 @@ sexp sexp_read_float_tail(sexp ctx, sexp in, double whole, int negp) {
}
res = (whole + res) * pow(10, e);
if (negp) res *= -1;
if ((scale == 0.1) && (exponent != SEXP_VOID) && (res == round(res)))
return sexp_make_fixnum(res);
else
return sexp_make_flonum(ctx, res);
}