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

[fw/altos] / src / scheme / ao_scheme_frame.c

diff --git a/src/scheme/ao_scheme_frame.c b/src/scheme/ao_scheme_frame.c
index 16da62fb922ff000679964f7a28ce258b1234c2e..9ae5bb7293e95b09eeddf41e5534d7044be25880 100644 (file)
--- 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)) {