altos/scheme: Rework display/write code

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

diff --git a/src/scheme/ao_scheme_bool.c b/src/scheme/ao_scheme_bool.c
index c1e880cac8497719a663c1800016b9e859f7ac2a..88970667c1244afce5afa427fe6532d7325f63d4 100644 (file)
--- a/src/scheme/ao_scheme_bool.c
+++ b/src/scheme/ao_scheme_bool.c
@@ -38,10 +38,11 @@ const struct ao_scheme_type ao_scheme_bool_type = {
 };
 
 void
-ao_scheme_bool_write(ao_poly v)
+ao_scheme_bool_write(ao_poly v, bool write)
 {
        struct ao_scheme_bool   *b = ao_scheme_poly_bool(v);
 
+       (void) write;
        if (b->value)
                printf("#t");
        else