X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_float.c;h=99249030b56c7a15c775d1e12becb5ec5542964d;hb=40236913922e0395780cd7d90354546ecaf279f9;hp=541f02644f37f51043210968fe82585325e3e8c3;hpb=2f8fce1cf6ce4bd12a836cc8ee15f4edbc95c95e;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_float.c b/src/scheme/ao_scheme_float.c
index 541f0264..99249030 100644
--- a/src/scheme/ao_scheme_float.c
+++ b/src/scheme/ao_scheme_float.c
@@ -39,6 +39,10 @@ const struct ao_scheme_type ao_scheme_float_type = {
 	.name = "float",
 };
 
+#ifndef FLOAT_FORMAT
+#define FLOAT_FORMAT "%g"
+#endif
+
 void
 ao_scheme_float_write(ao_poly p)
 {
@@ -54,7 +58,7 @@ ao_scheme_float_write(ao_poly p)
 			printf("+");
 		printf("inf.0");
 	} else
-		printf ("%g", f->value);
+		printf (FLOAT_FORMAT, v);
 }
 
 float