X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_rep.c;h=d780186a2768e3fc633f22ca8174e352cee5d4ff;hb=6fc1ee0f7adc6fcb3e850bcbaabc1db705314234;hp=d26d270c98af6b67d84f67d7b2afef13476980eb;hpb=d2408e72d1e0d3459918601712b09860ab17e200;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_rep.c b/src/lisp/ao_lisp_rep.c
index d26d270c..d780186a 100644
--- a/src/lisp/ao_lisp_rep.c
+++ b/src/lisp/ao_lisp_rep.c
@@ -22,14 +22,9 @@ ao_lisp_read_eval_print(void)
 		in = ao_lisp_read();
 		if (!in)
 			break;
+//		printf ("in: "); ao_lisp_poly_print(in); printf("\n");
 		out = ao_lisp_eval(in);
 		if (ao_lisp_exception) {
-			if (ao_lisp_exception & AO_LISP_OOM)
-				printf("out of memory\n");
-			if (ao_lisp_exception & AO_LISP_DIVIDE_BY_ZERO)
-				printf("divide by zero\n");
-			if (ao_lisp_exception & AO_LISP_INVALID)
-				printf("invalid operation\n");
 			ao_lisp_exception = 0;
 		} else {
 			ao_lisp_poly_print(out);