projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: Remove some stale frame debugging checks
[fw/altos]
/
src
/
lisp
/
ao_lisp_error.c
diff --git
a/src/lisp/ao_lisp_error.c
b/src/lisp/ao_lisp_error.c
index cfa78d2272e73c473f2196464333cd497ec6c6ab..2b15c4184c99f4ef24565366fcc2cde93166e90b 100644
(file)
--- a/
src/lisp/ao_lisp_error.c
+++ b/
src/lisp/ao_lisp_error.c
@@
-49,7
+49,7
@@
ao_lisp_error_frame(int indent, char *name, struct ao_lisp_frame *frame)
tabs(indent);
printf ("%s{", name);
if (frame) {
tabs(indent);
printf ("%s{", name);
if (frame) {
- for (f = 0; f <
frame->num
; f++) {
+ for (f = 0; f <
ao_lisp_frame_num(frame)
; f++) {
if (f != 0) {
tabs(indent);
printf(" ");
if (f != 0) {
tabs(indent);
printf(" ");
@@
-59,8
+59,8
@@
ao_lisp_error_frame(int indent, char *name, struct ao_lisp_frame *frame)
ao_lisp_poly_print(frame->vals[f].val);
printf("\n");
}
ao_lisp_poly_print(frame->vals[f].val);
printf("\n");
}
- if (frame->
next
)
- ao_lisp_error_frame(indent + 1, "
next: ", ao_lisp_poly_frame(frame->next
));
+ if (frame->
prev
)
+ ao_lisp_error_frame(indent + 1, "
prev: ", ao_lisp_poly_frame(frame->prev
));
}
tabs(indent);
printf(" }\n");
}
tabs(indent);
printf(" }\n");