X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_cons.c;h=0b3cbf809dc08666427414f66da42a98b88d0e3c;hb=e1a6b3bf458f311d832aea7eec34935d42f8efed;hp=912100a934297137c37160f55a88d11284a16c08;hpb=9d1131da911f7220ac8b6cb7ba5a0afd3deef657;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_cons.c b/src/scheme/ao_scheme_cons.c
index 912100a9..0b3cbf80 100644
--- a/src/scheme/ao_scheme_cons.c
+++ b/src/scheme/ao_scheme_cons.c
@@ -181,16 +181,17 @@ ao_scheme_cons_write(ao_poly c)
 	ao_poly			cdr;
 	int			first = 1;
 
+	ao_scheme_print_start();
 	printf("(");
 	while (cons) {
 		if (!first)
 			printf(" ");
-		ao_scheme_poly_write(cons->car);
-		cdr = cons->cdr;
-		if (cdr == c) {
-			printf(" ...");
+		if (ao_scheme_print_mark_addr(cons)) {
+			printf("...");
 			break;
 		}
+		ao_scheme_poly_write(cons->car);
+		cdr = cons->cdr;
 		if (ao_scheme_poly_type(cdr) == AO_SCHEME_CONS) {
 			cons = ao_scheme_poly_cons(cdr);
 			first = 0;
@@ -201,6 +202,7 @@ ao_scheme_cons_write(ao_poly c)
 		}
 	}
 	printf(")");
+	ao_scheme_print_stop();
 }
 
 void
@@ -209,13 +211,15 @@ ao_scheme_cons_display(ao_poly c)
 	struct ao_scheme_cons	*cons = ao_scheme_poly_cons(c);
 	ao_poly			cdr;
 
+	ao_scheme_print_start();
 	while (cons) {
-		ao_scheme_poly_display(cons->car);
-		cdr = cons->cdr;
-		if (cdr == c) {
+		if (ao_scheme_print_mark_addr(cons)) {
 			printf("...");
 			break;
 		}
+		ao_scheme_poly_display(cons->car);
+
+		cdr = cons->cdr;
 		if (ao_scheme_poly_type(cdr) == AO_SCHEME_CONS)
 			cons = ao_scheme_poly_cons(cdr);
 		else {
@@ -223,6 +227,7 @@ ao_scheme_cons_display(ao_poly c)
 			cons = NULL;
 		}
 	}
+	ao_scheme_print_stop();
 }
 
 int