- s->type |= AO_SCHEME_STACK_PRINT;
- printf("\t[\n");
- printf("\t\texpr: "); ao_scheme_poly_write(s->list); printf("\n");
- printf("\t\tstate: %s\n", ao_scheme_state_names[s->state]);
- ao_scheme_error_poly ("values: ", s->values, s->values_tail);
- ao_scheme_error_poly ("sexprs: ", s->sexprs, AO_SCHEME_NIL);
- ao_scheme_error_frame(2, "frame: ", ao_scheme_poly_frame(s->frame));
- printf("\t]\n");
- s->type &= ~AO_SCHEME_STACK_PRINT;
+ written++;
+ fputs("\t[\n", out);
+ ao_scheme_fprintf(out, "\t\texpr: %v\n", s->list);
+ ao_scheme_fprintf(out, "\t\tvalues: %v\n", s->values);
+ ao_scheme_fprintf(out, "\t\tframe: %v\n", s->frame);
+ fputs("\t]\n", out);