diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-18 21:14:47 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2016-11-18 21:14:47 -0800 |
| commit | 048a610f42cef7f3422baaab2ba2d4ce03e59768 (patch) | |
| tree | 8b6f01c026877d5f4f3cfd8b1204e0fde41ee86a /src/lisp/ao_lisp_string.c | |
| parent | ae2f70e6162b99de40155ff9f12ee2396cd7802c (diff) | |
altos/lisp: Use poly stashes for stacks
Saves some memory.
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_string.c')
| -rw-r--r-- | src/lisp/ao_lisp_string.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp/ao_lisp_string.c b/src/lisp/ao_lisp_string.c index 207d4f3b..cd7b27a9 100644 --- a/src/lisp/ao_lisp_string.c +++ b/src/lisp/ao_lisp_string.c @@ -104,9 +104,9 @@ ao_lisp_string_unpack(char *a) ao_lisp_cons_stash(1, tail); ao_lisp_string_stash(0, a); struct ao_lisp_cons *n = ao_lisp_cons_cons(ao_lisp_int_poly(c), NULL); + a = ao_lisp_string_fetch(0); cons = ao_lisp_cons_fetch(0); tail = ao_lisp_cons_fetch(1); - a = ao_lisp_string_fetch(0); if (!n) { cons = NULL; |