X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_rep.c;h=43cc387f9abb13ce3e36b0b5acf264bd4ca5971c;hb=65fb0ad8693407cc9bd114424c1f51b6aa6befc3;hp=ef7dbaf283db697f0c0e0f0c34e6c5831a0e90ed;hpb=92cdc0cf0e80c1ff3f31cce20fc2b9bda86e3638;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_rep.c b/src/lisp/ao_lisp_rep.c
index ef7dbaf2..43cc387f 100644
--- a/src/lisp/ao_lisp_rep.c
+++ b/src/lisp/ao_lisp_rep.c
@@ -24,9 +24,11 @@ ao_lisp_read_eval_print(void)
 			break;
 		out = ao_lisp_eval(in);
 		if (ao_lisp_exception) {
+			if (ao_lisp_exception & AO_LISP_EXIT)
+				break;
 			ao_lisp_exception = 0;
 		} else {
-			ao_lisp_poly_print(out);
+			ao_lisp_poly_write(out);
 			putchar ('\n');
 		}
 	}