X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Ftest%2Fao_lisp_test.c;fp=src%2Ftest%2Fao_lisp_test.c;h=e303869f411fb05e819f489096538e8b4b89b65e;hp=810a152819ad2dd3594e59fd6792c7c7329b1772;hb=11cb03b1d336ee90c422be27588f57be573a9546;hpb=9e1a787f8828fb7b750ad3310c89a89536ea5286

diff --git a/src/test/ao_lisp_test.c b/src/test/ao_lisp_test.c
index 810a1528..e303869f 100644
--- a/src/test/ao_lisp_test.c
+++ b/src/test/ao_lisp_test.c
@@ -36,7 +36,6 @@ main (int argc, char **argv)
 			list = ao_lisp_cons_cons(ao_lisp_string_poly(string), list);
 			list = ao_lisp_cons_cons(ao_lisp_int_poly(i), list);
 			atom = ao_lisp_atom_intern("ant");
-			atom->val = ao_lisp_cons_poly(list);
 			list = ao_lisp_cons_cons(ao_lisp_atom_poly(atom), list);
 		}
 		ao_lisp_poly_print(ao_lisp_cons_poly(list));
@@ -45,7 +44,7 @@ main (int argc, char **argv)
 
 	for (atom = ao_lisp_poly_atom(ao_builtin_atoms); atom; atom = ao_lisp_poly_atom(atom->next)) {
 		printf("%s = ", atom->name);
-		ao_lisp_poly_print(atom->val);
+		ao_lisp_poly_print(ao_lisp_atom_get(ao_lisp_atom_poly(atom)));
 		printf("\n");
 	}
 #if 1