projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: use strtof instead of atof
[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 d1c9b941b945d779f3d2ad87f3f57345cf33db57..ba13583433af303e5321870b42686b534cca8945 100644
(file)
--- a/
src/lisp/ao_lisp_error.c
+++ b/
src/lisp/ao_lisp_error.c
@@
-57,6
+57,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) {
+ struct ao_lisp_frame_vals *vals = ao_lisp_poly_frame_vals(frame->vals);
if (frame->type & AO_LISP_FRAME_PRINT)
printf("recurse...");
else {
if (frame->type & AO_LISP_FRAME_PRINT)
printf("recurse...");
else {
@@
-66,9
+67,9
@@
ao_lisp_error_frame(int indent, char *name, struct ao_lisp_frame *frame)
tabs(indent);
printf(" ");
}
tabs(indent);
printf(" ");
}
- ao_lisp_poly_write(
frame
->vals[f].atom);
+ ao_lisp_poly_write(
vals
->vals[f].atom);
printf(" = ");
printf(" = ");
- ao_lisp_poly_write(
frame
->vals[f].val);
+ ao_lisp_poly_write(
vals
->vals[f].val);
printf("\n");
}
if (frame->prev)
printf("\n");
}
if (frame->prev)