* 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:
sam 2003-09-23 12:15:36 +00:00
parent c4fbd1b8f2
commit ab40058bed
1 changed files with 2 additions and 2 deletions

View File

@ -105,10 +105,10 @@ Object Fixnum_To_String (Object x, int radix) {
}
char *Flonum_To_String (Object x) {
static char buf[32];
static char buf[64];
char *p;
sprintf (buf, "%.15g", FLONUM(x)->val);
sprintf (buf, "%.31g", FLONUM(x)->val);
for (p = buf; *p; p++)
if (*p == '.' || *p == 'e' || *p == 'N' || *p == 'i')
return buf;