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

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