* Promoted precision in Float->String transformations.
git-svn-id: svn://svn.zoy.org/elk/trunk@178 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
parent
c4fbd1b8f2
commit
ab40058bed
|
@ -105,10 +105,10 @@ Object Fixnum_To_String (Object x, int radix) {
|
||||||
}
|
}
|
||||||
|
|
||||||
char *Flonum_To_String (Object x) {
|
char *Flonum_To_String (Object x) {
|
||||||
static char buf[32];
|
static char buf[64];
|
||||||
char *p;
|
char *p;
|
||||||
|
|
||||||
sprintf (buf, "%.15g", FLONUM(x)->val);
|
sprintf (buf, "%.31g", FLONUM(x)->val);
|
||||||
for (p = buf; *p; p++)
|
for (p = buf; *p; p++)
|
||||||
if (*p == '.' || *p == 'e' || *p == 'N' || *p == 'i')
|
if (*p == '.' || *p == 'e' || *p == 'N' || *p == 'i')
|
||||||
return buf;
|
return buf;
|
||||||
|
|
Loading…
Reference in New Issue