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

Do not print extra trailing zeros after decimal point

Browse source
This commit is contained in:
justin 2016-04-05 16:05:14 -04:00
parent 774e009056
commit d5dd8447f5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
runtime.c
View file

@ -571,7 +571,7 @@ object Cyc_display(object x, FILE *port)
fprintf(port, "%d", ((integer_type *) x)->value);
break;
case double_tag:
fprintf(port, "%.16f", ((double_type *) x)->value);
fprintf(port, "%.16g", ((double_type *) x)->value);
break;
case string_tag:
fprintf(port, "%s", ((string_type *) x)->str);
@ -1109,7 +1109,7 @@ object Cyc_number2string2(void *data, object cont, int argc, object n, ...) {
}else if (type_of(n) == integer_tag) {
snprintf(buffer, 1024, "%d", ((integer_type *)n)->value);
} else if (type_of(n) == double_tag) {
snprintf(buffer, 1024, "%.16f", ((double_type *)n)->value);
snprintf(buffer, 1024, "%.16g", ((double_type *)n)->value);
} else {
Cyc_rt_raise2(data, "number->string - Unexpected object", n);
}