summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorKeith Packard <keithp@keithp.com>2017-12-24 14:29:09 -0800
committerKeith Packard <keithp@keithp.com>2017-12-24 14:31:31 -0800
commitfc63968f90e3fab12e63d973a4ee7f16d80d765f (patch)
tree923d652d0c641b9fc7ae6164d42a6083f9848526 /src
parent7b5892f75a75363a656ede8befb419245aa218b5 (diff)
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>
Diffstat (limited to 'src')
-rw-r--r--src/scheme/ao_scheme_frame.c3
1 files changed, 2 insertions, 1 deletions
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)) {