Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added TODO

Browse source
This commit is contained in:
Justin Ethier 2016-07-05 23:34:38 -04:00
parent 655b56e390
commit 36c124fa80
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
runtime.c
View file

@ -650,6 +650,15 @@ object Cyc_display(object x, FILE * port)
break; break;
case double_tag: case double_tag:
fprintf(port, "%.16g", ((double_type *) x)->value); fprintf(port, "%.16g", ((double_type *) x)->value);
// TODO: extract this out into a common function, and call it here and in number->string.
// From chibi-scheme. g minimizes the amount of displayed information, and no decimal point is
// printed for whole-number doubles (EG: 3.0 is printed as 3). so detect those cases and add ".0"
// i = snprintf(numbuf, NUMBUF_LEN, "%.15g", f); // buflen is 32
// if (!strchr(numbuf, '.') && !strchr(numbuf, 'e')) {
// numbuf[i++] = '.'; numbuf[i++] = '0'; numbuf[i++] = '\0';
// }
break; break;
case string_tag: case string_tag:
fprintf(port, "%s", ((string_type *) x)->str); fprintf(port, "%s", ((string_type *) x)->str);