projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/scheme: Replace per-type indexed stash with poly stash heap
[fw/altos]
/
src
/
scheme
/
ao_scheme_stack.c
diff --git
a/src/scheme/ao_scheme_stack.c
b/src/scheme/ao_scheme_stack.c
index e29e2b687f7c7f0907b38994a32876ea0accde9b..863df3ca9f0dafe49ff7a0a8391963a1db817dd5 100644
(file)
--- a/
src/scheme/ao_scheme_stack.c
+++ b/
src/scheme/ao_scheme_stack.c
@@
-199,13
+199,13
@@
ao_scheme_stack_copy(struct ao_scheme_stack *old)
struct ao_scheme_stack *n, *prev = NULL;
while (old) {
struct ao_scheme_stack *n, *prev = NULL;
while (old) {
- ao_scheme_stack_stash(
0,
old);
- ao_scheme_stack_stash(
1,
new);
- ao_scheme_stack_stash(
2,
prev);
+ ao_scheme_stack_stash(old);
+ ao_scheme_stack_stash(new);
+ ao_scheme_stack_stash(prev);
n = ao_scheme_stack_new();
n = ao_scheme_stack_new();
- prev = ao_scheme_stack_fetch(
2
);
- new = ao_scheme_stack_fetch(
1
);
- old = ao_scheme_stack_fetch(
0
);
+ prev = ao_scheme_stack_fetch();
+ new = ao_scheme_stack_fetch();
+ old = ao_scheme_stack_fetch();
if (!n)
return NULL;
if (!n)
return NULL;