projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: Move stack recursion check after null check
[fw/altos]
/
src
/
lisp
/
ao_lisp_stack.c
diff --git
a/src/lisp/ao_lisp_stack.c
b/src/lisp/ao_lisp_stack.c
index ef07b88a92f4883f78c209190ec7467e36500935..53adf43204bfcafa6622f64d00bcd04e39cc03bb 100644
(file)
--- a/
src/lisp/ao_lisp_stack.c
+++ b/
src/lisp/ao_lisp_stack.c
@@
-160,11
+160,11
@@
ao_lisp_stack_print(ao_poly poly)
{
struct ao_lisp_stack *s = ao_lisp_poly_stack(poly);
{
struct ao_lisp_stack *s = ao_lisp_poly_stack(poly);
- if (s->type & AO_LISP_STACK_PRINT) {
- printf("[recurse...]");
- return;
- }
while (s) {
while (s) {
+ if (s->type & AO_LISP_STACK_PRINT) {
+ printf("[recurse...]");
+ return;
+ }
s->type |= AO_LISP_STACK_PRINT;
printf("\t[\n");
printf("\t\texpr: "); ao_lisp_poly_print(s->list); printf("\n");
s->type |= AO_LISP_STACK_PRINT;
printf("\t[\n");
printf("\t\texpr: "); ao_lisp_poly_print(s->list); printf("\n");