X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_int.c;h=43d6b8e1064b46df2f51a069643cc030f9b874f6;hp=350a5d350374f72b008e6dd0f795991c030d59f7;hb=d8c9024f3829dc3f241b16869f165f3ee01764f3;hpb=a15166c435f65cb36f487ec8e5a4ff558a7e0502

diff --git a/src/scheme/ao_scheme_int.c b/src/scheme/ao_scheme_int.c
index 350a5d35..43d6b8e1 100644
--- 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 */