Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-11 23:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

widening whole # input to a double on read_float_tail (issue 33)

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

6
sexp.c
View file

@ -19,7 +19,7 @@ static struct sexp_huff_entry huff_table[] = {
static int sexp_initialized_p = 0;
sexp sexp_read_float_tail(sexp ctx, sexp in, sexp_uint_t whole, int negp);
sexp sexp_read_float_tail(sexp ctx, sexp in, double whole, int negp);
static char sexp_separators[] = {
/* 1 2 3 4 5 6 7 8 9 a b c d e f */
@ -1304,7 +1304,7 @@ sexp sexp_read_symbol(sexp ctx, sexp in, int init, int internp) {
return res;
}
sexp sexp_read_float_tail(sexp ctx, sexp in, sexp_uint_t whole, int negp) {
sexp sexp_read_float_tail(sexp ctx, sexp in, double whole, int negp) {
sexp exponent=SEXP_VOID;
double res=0.0, scale=0.1, e=0.0;
int c;
@ -1323,7 +1323,7 @@ sexp sexp_read_float_tail(sexp ctx, sexp in, sexp_uint_t whole, int negp) {
} else {
sexp_push_char(ctx, c, in);
}
res = ((double)whole + res) * pow(10, e);
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);