altos/scheme: Add start/end args to vector->list

[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 afdc89a86e880087f98fd2842d3c29bf7d307019..083823f3097a1a6318ce267c9bf7dc82b8aa0e08 100644 (file)
--- a/src/scheme/ao_scheme_vector.c
+++ b/src/scheme/ao_scheme_vector.c
@@ -159,13 +159,19 @@ ao_scheme_list_to_vector(struct ao_scheme_cons *cons)
 }
 
 struct ao_scheme_cons *
-ao_scheme_vector_to_list(struct ao_scheme_vector *vector)
+ao_scheme_vector_to_list(struct ao_scheme_vector *vector, int start, int end)
 {
-       unsigned int            i;
+       int                     i;
        uint16_t                length = vector->length;
        struct ao_scheme_cons   *cons = NULL;
 
-       for (i = length; i-- > 0;) {
+       if (end == -1)
+               end = length;
+       if (start < 0)
+               start = 0;
+       if (end > length)
+               end = length;
+       for (i = end; i-- > start;) {
                ao_scheme_vector_stash(vector);
                cons = ao_scheme_cons_cons(vector->vals[i], ao_scheme_cons_poly(cons));
                vector = ao_scheme_vector_fetch();