altos/lisp: Finish first pass through r7rs

[fw/altos] / src / lisp / ao_lisp_lambda.c

diff --git a/src/lisp/ao_lisp_lambda.c b/src/lisp/ao_lisp_lambda.c
index cc333d6fc3a0dcc8252f8241fd4d21158da142f1..71aebed0d7b55b36435e7d0bb0b967075cae9021 100644 (file)
--- 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(")");