altos/lisp: add set/setq and ' in reader

[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 d26d270c98af6b67d84f67d7b2afef13476980eb..a1f9fa1f4b9be8834a459a7598d4a82e8d701eef 100644 (file)
--- a/src/lisp/ao_lisp_rep.c
+++ b/src/lisp/ao_lisp_rep.c
@@ -22,6 +22,7 @@ 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)