diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/scheme/ao_scheme_frame.c | 3 |
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)) { |