altos/scheme: Rework display/write code

[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 4fcf4931234050acbc9f5517cf394afbfe3aac9f..01b571c0c8260e4aac90fb71f096e66112ddb60e 100644 (file)
--- 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 */