altos/lisp: Finish first pass through r7rs

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

diff --git a/src/lisp/ao_lisp_atom.c b/src/lisp/ao_lisp_atom.c
index 8c9e8ed11346ae5062c3f601ba38b6406f91233d..ede13567fd3a1973f05e9557d8548c48f3a20d4f 100644 (file)
--- a/src/lisp/ao_lisp_atom.c
+++ b/src/lisp/ao_lisp_atom.c
@@ -158,7 +158,7 @@ ao_lisp_atom_set(ao_poly atom, ao_poly val)
 }
 
 void
-ao_lisp_atom_print(ao_poly a)
+ao_lisp_atom_write(ao_poly a)
 {
        struct ao_lisp_atom *atom = ao_lisp_poly_atom(a);
        printf("%s", atom->name);