altos/lisp: Split out frame vals from frame struct

[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) {
+               struct ao_lisp_frame_vals       *vals = ao_lisp_poly_frame_vals(frame->vals);
                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("         ");
                                }
-                               ao_lisp_poly_write(frame->vals[f].atom);
+                               ao_lisp_poly_write(vals->vals[f].atom);
                                printf(" = ");
-                               ao_lisp_poly_write(frame->vals[f].val);
+                               ao_lisp_poly_write(vals->vals[f].val);
                                printf("\n");
                        }
                        if (frame->prev)