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=96f1fd726e8109bc63fddf9a7cb292fd39561e9d;hp=bbadfa755289ec35818a7992b421bf349ac70aa3;hb=e2f4d25cd6f6f3787d4ee99264732d5b2ce23d4c;hpb=56d46ceaa1413415f25e47e81036426132f99924

diff --git a/src/test/ao_lisp_test.c b/src/test/ao_lisp_test.c
index bbadfa75..96f1fd72 100644
--- a/src/test/ao_lisp_test.c
+++ b/src/test/ao_lisp_test.c
@@ -23,6 +23,7 @@ main (int argc, char **argv)
 {
 	int	i, j;
 	struct ao_lisp_atom	*atom;
+	ao_lisp_poly		poly;
 	ao_lisp_root_add(&ao_lisp_cons_type, (void **) &list);
 	ao_lisp_root_add(&ao_lisp_string_type, (void **) &string);
 
@@ -55,4 +56,12 @@ main (int argc, char **argv)
 	printf ("\n");
 	ao_lisp_poly_print(ao_lisp_eval(ao_lisp_cons_poly(list)));
 	printf ("\n");
+
+	while ((poly = ao_lisp_read())) {
+		poly = ao_lisp_eval(poly);
+		ao_lisp_poly_print(poly);
+		putchar ('\n');
+		fflush(stdout);
+	}
+
 }