// 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);