altos/scheme: Support scheme subsetting via feature settings

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

diff --git a/src/scheme/ao_scheme_int.c b/src/scheme/ao_scheme_int.c
index 350a5d350374f72b008e6dd0f795991c030d59f7..43d6b8e1064b46df2f51a069643cc030f9b874f6 100644 (file)
--- a/src/scheme/ao_scheme_int.c
+++ b/src/scheme/ao_scheme_int.c
@@ -21,6 +21,8 @@ ao_scheme_int_write(ao_poly p)
        printf("%d", i);
 }
 
+#ifdef AO_SCHEME_FEATURE_BIGINT
+
 int32_t
 ao_scheme_poly_integer(ao_poly p)
 {
@@ -77,3 +79,4 @@ ao_scheme_bigint_write(ao_poly p)
 
        printf("%d", ao_scheme_bigint_int(bi->value));
 }
+#endif /* AO_SCHEME_FEATURE_BIGINT */