X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_int.c;h=01b571c0c8260e4aac90fb71f096e66112ddb60e;hp=4fcf4931234050acbc9f5517cf394afbfe3aac9f;hb=431165e5fa72ba6dffd477de32960745cdec332c;hpb=5628b983497d9d03e10cccee157419210a49cfa9

diff --git a/src/scheme/ao_scheme_int.c b/src/scheme/ao_scheme_int.c
index 4fcf4931..01b571c0 100644
--- a/src/scheme/ao_scheme_int.c
+++ b/src/scheme/ao_scheme_int.c
@@ -15,9 +15,10 @@
 #include "ao_scheme.h"
 
 void
-ao_scheme_int_write(ao_poly p)
+ao_scheme_int_write(ao_poly p, bool write)
 {
 	int i = ao_scheme_poly_int(p);
+	(void) write;
 	printf("%d", i);
 }
 
@@ -76,10 +77,11 @@ const struct ao_scheme_type ao_scheme_bigint_type = {
 };
 
 void
-ao_scheme_bigint_write(ao_poly p)
+ao_scheme_bigint_write(ao_poly p, bool write)
 {
 	struct ao_scheme_bigint	*bi = ao_scheme_poly_bigint(p);
 
+	(void) write;
 	printf("%d", bi->value);
 }
 #endif /* AO_SCHEME_FEATURE_BIGINT */