diff options
| author | Keith Packard <keithp@keithp.com> | 2016-11-03 21:49:50 -0700 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-02-20 11:16:49 -0800 |
| commit | 77db0e8162cd01c2b42737b3d71b38cea942484f (patch) | |
| tree | 6345771cd69cdc646fd38f02e84056e0a8ff21d9 /src/lisp/ao_lisp_rep.c | |
| parent | 11cb03b1d336ee90c422be27588f57be573a9546 (diff) | |
altos: Add lambda support to lisp
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_rep.c')
| -rw-r--r-- | src/lisp/ao_lisp_rep.c | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/lisp/ao_lisp_rep.c b/src/lisp/ao_lisp_rep.c index a1f9fa1f..d780186a 100644 --- 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); |