From: Keith Packard <keithp@keithp.com>
Date: Mon, 8 Jan 2018 07:06:22 +0000 (-0800)
Subject: altos/scheme: remove debug code from vector write
X-Git-Tag: 1.8.5~1^2~2^2~6
X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=commitdiff_plain;h=6ae22601bbf018193ac093fb0f745ebe213bfb64

altos/scheme: remove debug code from vector write

Signed-off-by: Keith Packard <keithp@keithp.com>
---

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)