altos/scheme: More compiler warning cleanups

[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 d19dd6d6d59f1226979041fc278b384c9e77a712..e062a09332f8fb1e24d07e9753e0c781761485d6 100644 (file)
--- a/src/scheme/ao_scheme_stack.c
+++ b/src/scheme/ao_scheme_stack.c
@@ -221,11 +221,12 @@ ao_scheme_stack_copy(struct ao_scheme_stack *old)
 ao_poly
 ao_scheme_stack_eval(void)
 {
+       struct ao_scheme_cons   *cons;
        struct ao_scheme_stack  *new = ao_scheme_stack_copy(ao_scheme_poly_stack(ao_scheme_v));
        if (!new)
                return AO_SCHEME_NIL;
 
-       struct ao_scheme_cons   *cons = ao_scheme_poly_cons(ao_scheme_stack->values);
+       cons = ao_scheme_poly_cons(ao_scheme_stack->values);
 
        if (!cons || !cons->cdr)
                return ao_scheme_error(AO_SCHEME_INVALID, "continuation requires a value");