X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_lambda.c;fp=src%2Flisp%2Fao_lisp_lambda.c;h=71aebed0d7b55b36435e7d0bb0b967075cae9021;hb=cf5729a0bae51172f12fc9ec4339d4e975a45fcc;hp=cc333d6fc3a0dcc8252f8241fd4d21158da142f1;hpb=e1acf5eb12aceda7aa838df031c1da1129d0fa5d;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_lambda.c b/src/lisp/ao_lisp_lambda.c
index cc333d6f..71aebed0 100644
--- a/src/lisp/ao_lisp_lambda.c
+++ b/src/lisp/ao_lisp_lambda.c
@@ -50,7 +50,7 @@ const struct ao_lisp_type ao_lisp_lambda_type = {
 };
 
 void
-ao_lisp_lambda_print(ao_poly poly)
+ao_lisp_lambda_write(ao_poly poly)
 {
 	struct ao_lisp_lambda	*lambda = ao_lisp_poly_lambda(poly);
 	struct ao_lisp_cons	*cons = ao_lisp_poly_cons(lambda->code);
@@ -59,7 +59,7 @@ ao_lisp_lambda_print(ao_poly poly)
 	printf("%s", ao_lisp_args_name(lambda->args));
 	while (cons) {
 		printf(" ");
-		ao_lisp_poly_print(cons->car);
+		ao_lisp_poly_write(cons->car);
 		cons = ao_lisp_poly_cons(cons->cdr);
 	}
 	printf(")");