X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_rep.c;h=ef7dbaf283db697f0c0e0f0c34e6c5831a0e90ed;hb=b3b4731fcb89cb404433f37a7704a503567c43bd;hp=d780186a2768e3fc633f22ca8174e352cee5d4ff;hpb=77db0e8162cd01c2b42737b3d71b38cea942484f;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_rep.c b/src/lisp/ao_lisp_rep.c
index d780186a..ef7dbaf2 100644
--- a/src/lisp/ao_lisp_rep.c
+++ b/src/lisp/ao_lisp_rep.c
@@ -20,9 +20,8 @@ ao_lisp_read_eval_print(void)
 	ao_poly	in, out = AO_LISP_NIL;
 	for(;;) {
 		in = ao_lisp_read();
-		if (!in)
+		if (in == _ao_lisp_atom_eof)
 			break;
-//		printf ("in: "); ao_lisp_poly_print(in); printf("\n");
 		out = ao_lisp_eval(in);
 		if (ao_lisp_exception) {
 			ao_lisp_exception = 0;