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

diff --git a/src/lisp/ao_lisp_make_const.c b/src/lisp/ao_lisp_make_const.c
index f23d34db..f9bb5452 100644
--- a/src/lisp/ao_lisp_make_const.c
+++ b/src/lisp/ao_lisp_make_const.c
@@ -326,10 +326,11 @@ main(int argc, char **argv)
 	ao_lisp_collect(AO_LISP_COLLECT_FULL);
 
 	for (f = 0; f < ao_lisp_frame_global->num; f++) {
-		val = ao_has_macro(ao_lisp_frame_global->vals[f].val);
+		struct ao_lisp_frame_vals	*vals = ao_lisp_poly_frame_vals(ao_lisp_frame_global->vals);
+		val = ao_has_macro(vals->vals[f].val);
 		if (val != AO_LISP_NIL) {
 			printf("error: function %s contains unresolved macro: ",
-			       ao_lisp_poly_atom(ao_lisp_frame_global->vals[f].atom)->name);
+			       ao_lisp_poly_atom(vals->vals[f].atom)->name);
 			ao_lisp_poly_write(val);
 			printf("\n");
 			exit(1);