altos/lisp: Finish first pass through r7rs

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

diff --git a/src/lisp/ao_lisp_bool.c b/src/lisp/ao_lisp_bool.c
index ad25afbaeb2b252cb7b4ae17e1ea33e28ca4f587..391a7f781eec229249ce601ad1caf78f6ddc1f71 100644 (file)
--- a/src/lisp/ao_lisp_bool.c
+++ b/src/lisp/ao_lisp_bool.c
@@ -38,7 +38,7 @@ const struct ao_lisp_type ao_lisp_bool_type = {
 };
 
 void
-ao_lisp_bool_print(ao_poly v)
+ao_lisp_bool_write(ao_poly v)
 {
        struct ao_lisp_bool     *b = ao_lisp_poly_bool(v);