From 6ae22601bbf018193ac093fb0f745ebe213bfb64 Mon Sep 17 00:00:00 2001 From: Keith Packard Date: Sun, 7 Jan 2018 23:06:22 -0800 Subject: [PATCH] altos/scheme: remove debug code from vector write Signed-off-by: Keith Packard --- src/scheme/ao_scheme_vector.c | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/src/scheme/ao_scheme_vector.c b/src/scheme/ao_scheme_vector.c index a716ca0c..e7328e32 100644 --- a/src/scheme/ao_scheme_vector.c +++ b/src/scheme/ao_scheme_vector.c @@ -84,7 +84,7 @@ void ao_scheme_vector_write(FILE *out, ao_poly v, bool write) { struct ao_scheme_vector *vector = ao_scheme_poly_vector(v); - unsigned int i, j; + unsigned int i; int was_marked = 0; struct vl *ve; @@ -103,17 +103,12 @@ ao_scheme_vector_write(FILE *out, ao_poly v, bool write) if (was_marked) { fputs("...", out); } else { - fputs("#(\n", out); + fputs("#(", out); for (i = 0; i < vector->length; i++) { - printf("%3d: ", i); - for (j = 0; j < vd; j++) - printf("."); + if (i != 0) + putc(' ', out); ao_scheme_poly_write(out, vector->vals[i], write); - printf("\n"); } - printf(" "); - for (j = 0; j < vd; j++) - printf("."); printf(")"); } if (ao_scheme_print_stop() && !was_marked) -- 2.30.2