diff options
| author | Keith Packard <keithp@keithp.com> | 2017-12-19 12:39:20 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-12-19 12:39:20 -0800 |
| commit | ed1f7b79abc7400a54b35fbf62c9db6855f9129a (patch) | |
| tree | aad2b1c704d4f4a32eb54e46784858ca7cb0bf2f /src/scheme/ao_scheme_atom.c | |
| parent | 71fb79492cb955af4bd52e79f1fa69d17e084dbc (diff) | |
altos/scheme: Replace per-type indexed stash with poly stash heap
Instead of having a random set of stash arrays with explicit indices
used by callers, just have a general heap. Less error prone, and less code.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/scheme/ao_scheme_atom.c')
| -rw-r--r-- | src/scheme/ao_scheme_atom.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/scheme/ao_scheme_atom.c b/src/scheme/ao_scheme_atom.c index 8989cefd..c72a2b27 100644 --- 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; } |