altos/scheme: Add separate floor-quotient builtin

[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..c72a2b27e1f803f2c066ecb04a77ffd0a2262c9a 100644 (file)
--- a/src/scheme/ao_scheme_atom.c
+++ b/src/scheme/ao_scheme_atom.c
@@ -107,9 +107,9 @@ ao_scheme_string_to_atom(struct ao_scheme_string *string)
 
        if (atom)
                return atom;
-       ao_scheme_string_stash(0, string);
+       ao_scheme_string_stash(string);
        atom = ao_scheme_alloc(name_size(string->val));
-       string = ao_scheme_string_fetch(0);
+       string = ao_scheme_string_fetch();
        ao_scheme_atom_init(atom, string->val);
        return atom;
 }
@@ -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);
 }