altos/scheme: Support scheme subsetting via feature settings

[fw/altos] / src / scheme / ao_scheme_float.c

diff --git a/src/scheme/ao_scheme_float.c b/src/scheme/ao_scheme_float.c
index 99249030b56c7a15c775d1e12becb5ec5542964d..c026c6fb1fd477f9f612e79016beecbb4d287213 100644 (file)
--- 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