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

This commit is contained in:
Alex Shinn 2010-02-05 13:42:30 +09:00
parent 4020a1c1f6
commit 4dcfb8aa6b

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);
}