X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_atom.c;h=ede13567fd3a1973f05e9557d8548c48f3a20d4f;hp=8c9e8ed11346ae5062c3f601ba38b6406f91233d;hb=cf5729a0bae51172f12fc9ec4339d4e975a45fcc;hpb=e1acf5eb12aceda7aa838df031c1da1129d0fa5d

diff --git a/src/lisp/ao_lisp_atom.c b/src/lisp/ao_lisp_atom.c
index 8c9e8ed1..ede13567 100644
--- 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);