altos/lisp: Separate out values from atoms

[fw/altos] / src / test / ao_lisp_test.c

diff --git a/src/test/ao_lisp_test.c b/src/test/ao_lisp_test.c
index 810a152819ad2dd3594e59fd6792c7c7329b1772..e303869f411fb05e819f489096538e8b4b89b65e 100644 (file)
--- 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