X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_vector.c;fp=src%2Fscheme%2Fao_scheme_vector.c;h=e7328e32b24ab50062ed73847403f028b505cbd1;hp=a716ca0c307e30543c70b65e1f151b4085f407c2;hb=6ae22601bbf018193ac093fb0f745ebe213bfb64;hpb=bf37c22c6cdd4a90117bdc809e5c063a079082ad

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)