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;
}
}
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);
}