X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_rep.c;h=3be95d44d89ecda6eaea21b86a715d7fd97b1a9e;hp=ef7dbaf283db697f0c0e0f0c34e6c5831a0e90ed;hb=9e80b8bd10433ecc6ebe7c295e16b62b3883987d;hpb=83c1e4e8ca684f555cba252efd3882f811d8e154

diff --git a/src/lisp/ao_lisp_rep.c b/src/lisp/ao_lisp_rep.c
index ef7dbaf2..3be95d44 100644
--- a/src/lisp/ao_lisp_rep.c
+++ b/src/lisp/ao_lisp_rep.c
@@ -20,7 +20,7 @@ ao_lisp_read_eval_print(void)
 	ao_poly	in, out = AO_LISP_NIL;
 	for(;;) {
 		in = ao_lisp_read();
-		if (in == _ao_lisp_atom_eof)
+		if (in == _ao_lisp_atom_eof || in == AO_LISP_NIL)
 			break;
 		out = ao_lisp_eval(in);
 		if (ao_lisp_exception) {