altos: Add lambda support to lisp

[fw/altos] / src / lisp / ao_lisp_rep.c

diff --git a/src/lisp/ao_lisp_rep.c b/src/lisp/ao_lisp_rep.c
index a1f9fa1f4b9be8834a459a7598d4a82e8d701eef..d780186a2768e3fc633f22ca8174e352cee5d4ff 100644 (file)
--- a/src/lisp/ao_lisp_rep.c
+++ b/src/lisp/ao_lisp_rep.c
@@ -25,12 +25,6 @@ ao_lisp_read_eval_print(void)
 //             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);