projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
{
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_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");
if (!cons || !cons->cdr)
return ao_scheme_error(AO_SCHEME_INVALID, "continuation requires a value");