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

Correct format specifier for float

Browse source
This commit is contained in:
Justin Ethier 2016-01-24 21:41:35 -05:00
parent f23c17f8ac
commit 4dc2e78ce8
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

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