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

diff --git a/src/scheme/ao_scheme_float.c b/src/scheme/ao_scheme_float.c
index 99249030..c026c6fb 100644
--- a/src/scheme/ao_scheme_float.c
+++ b/src/scheme/ao_scheme_float.c
@@ -15,6 +15,8 @@
 #include "ao_scheme.h"
 #include <math.h>
 
+#ifdef AO_SCHEME_FEATURE_FLOAT
+
 static void float_mark(void *addr)
 {
 	(void) addr;
@@ -150,3 +152,4 @@ ao_scheme_do_sqrt(struct ao_scheme_cons *cons)
 		return ao_scheme_error(AO_SCHEME_INVALID, "%s: non-numeric", ao_scheme_poly_atom(_ao_scheme_atom_sqrt)->name);
 	return ao_scheme_float_get(sqrtf(ao_scheme_poly_number(value)));
 }
+#endif