projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
need to push telegps-v2.0 loader .bin file to corporate repo, too
[fw/altos]
/
src
/
scheme
/
ao_scheme_vector.c
diff --git
a/src/scheme/ao_scheme_vector.c
b/src/scheme/ao_scheme_vector.c
index 419d6765aeafd4877098e3b5c778fd5eedd816e4..afdc89a86e880087f98fd2842d3c29bf7d307019 100644
(file)
--- a/
src/scheme/ao_scheme_vector.c
+++ b/
src/scheme/ao_scheme_vector.c
@@
-145,9
+145,9
@@
ao_scheme_list_to_vector(struct ao_scheme_cons *cons)
if (ao_scheme_exception)
return NULL;
if (ao_scheme_exception)
return NULL;
- ao_scheme_cons_stash(
0,
cons);
+ ao_scheme_cons_stash(cons);
vector = ao_scheme_vector_alloc(length, AO_SCHEME_NIL);
vector = ao_scheme_vector_alloc(length, AO_SCHEME_NIL);
- cons = ao_scheme_cons_fetch(
0
);
+ cons = ao_scheme_cons_fetch();
if (!vector)
return NULL;
i = 0;
if (!vector)
return NULL;
i = 0;
@@
-166,9
+166,9
@@
ao_scheme_vector_to_list(struct ao_scheme_vector *vector)
struct ao_scheme_cons *cons = NULL;
for (i = length; i-- > 0;) {
struct ao_scheme_cons *cons = NULL;
for (i = length; i-- > 0;) {
- ao_scheme_
poly_stash(2, ao_scheme_vector_poly(vector)
);
+ ao_scheme_
vector_stash(vector
);
cons = ao_scheme_cons_cons(vector->vals[i], ao_scheme_cons_poly(cons));
cons = ao_scheme_cons_cons(vector->vals[i], ao_scheme_cons_poly(cons));
- vector = ao_scheme_
poly_vector(ao_scheme_poly_fetch(2)
);
+ vector = ao_scheme_
vector_fetch(
);
if (!cons)
return NULL;
}
if (!cons)
return NULL;
}