altos/scheme: Replace per-type indexed stash with poly stash heap

[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 8989cefda35a1f052bf9ff4d8b8e42053bb400fb..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;
 }