X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_cons.c;fp=src%2Fscheme%2Fao_scheme_cons.c;h=21ee10cc668abb405ea52db60204053e5a6f01f1;hb=abb856cd66e00d739e4efb1930b5c168eaf48029;hp=03dad956d6561f59e31f4e79bc3004def0c3e2a9;hpb=17fe6de833cccb6d43d0ac0ed84a4faaa3463a09;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_cons.c b/src/scheme/ao_scheme_cons.c
index 03dad956..21ee10cc 100644
--- a/src/scheme/ao_scheme_cons.c
+++ b/src/scheme/ao_scheme_cons.c
@@ -195,7 +195,7 @@ ao_scheme_cons_length(struct ao_scheme_cons *cons)
 	int	len = 0;
 	while (cons) {
 		len++;
-		cons = ao_scheme_poly_cons(cons->cdr);
+		cons = ao_scheme_cons_cdr(cons);
 	}
 	return len;
 }