X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_error.c;fp=src%2Flisp%2Fao_lisp_error.c;h=ba13583433af303e5321870b42686b534cca8945;hb=98923ae1189f062b8b94120d47a56892db25493f;hp=d1c9b941b945d779f3d2ad87f3f57345cf33db57;hpb=835bf4131f9e20575bfdf2179462ebdf54a14761;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_error.c b/src/lisp/ao_lisp_error.c
index d1c9b941..ba135834 100644
--- 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)