mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-08 21:47:33 +02:00
exponents in numbers always indicate inexactness per R5RS (indirectly fixes issue 34)
This commit is contained in:
parent
4020a1c1f6
commit
4dcfb8aa6b
1 changed files with 1 additions and 4 deletions
3
sexp.c
3
sexp.c
|
@ -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);
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue