From: Keith Packard <keithp@keithp.com>
Date: Sun, 24 Dec 2017 22:29:09 +0000 (-0800)
Subject: altos/scheme: Pull out per-frame vals while printing list of frames
X-Git-Tag: 1.8.5~1^2~2^2~31
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=fc63968f90e3fab12e63d973a4ee7f16d80d765f;p=fw%2Faltos

altos/scheme: Pull out per-frame vals while printing list of frames

Was using the same vals for all frames, which just doesn't work well.

Signed-off-by: Keith Packard <keithp@keithp.com>
---

diff --git a/src/scheme/ao_scheme_frame.c b/src/scheme/ao_scheme_frame.c
index 16da62fb..9ae5bb72 100644
--- a/src/scheme/ao_scheme_frame.c
+++ b/src/scheme/ao_scheme_frame.c
@@ -153,12 +153,13 @@ ao_scheme_frame_write(ao_poly p, bool write)
 {
 	struct ao_scheme_frame		*frame = ao_scheme_poly_frame(p);
 	struct ao_scheme_frame		*clear = frame;
-	struct ao_scheme_frame_vals	*vals = ao_scheme_poly_frame_vals(frame->vals);
 	int				f;
 	int				written = 0;
 
 	ao_scheme_print_start();
 	while (frame) {
+		struct ao_scheme_frame_vals	*vals = ao_scheme_poly_frame_vals(frame->vals);
+
 		if (written != 0)
 			printf(", ");
 		if (ao_scheme_print_mark_addr(frame)) {