altos/scheme: Rework display/write code

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

diff --git a/src/scheme/ao_scheme_atom.c b/src/scheme/ao_scheme_atom.c
index 745c32fee48ddf6ae615034629b2296852445b7a..8989cefda35a1f052bf9ff4d8b8e42053bb400fb 100644 (file)
--- a/src/scheme/ao_scheme_atom.c
+++ b/src/scheme/ao_scheme_atom.c
@@ -188,8 +188,9 @@ ao_scheme_atom_def(ao_poly atom, ao_poly val)
 }
 
 void
-ao_scheme_atom_write(ao_poly a)
+ao_scheme_atom_write(ao_poly a, bool write)
 {
        struct ao_scheme_atom *atom = ao_scheme_poly_atom(a);
+       (void) write;
        printf("%s", atom->name);
 }