summaryrefslogtreecommitdiff
path: root/src/lisp/ao_lisp_rep.c
diff options
context:
space:
mode:
authorKeith Packard <keithp@keithp.com>2016-11-02 14:18:54 -0700
committerKeith Packard <keithp@keithp.com>2017-02-20 11:16:49 -0800
commit9e1a787f8828fb7b750ad3310c89a89536ea5286 (patch)
treef39297fc7f73c9c391b0c6bd4e93d8ddcb675d95 /src/lisp/ao_lisp_rep.c
parent8362393a621ea78a96e7f65f602f4bfc7bbd1158 (diff)
altos/lisp: add set/setq and ' in reader
Along with other small fixes 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.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/lisp/ao_lisp_rep.c b/src/lisp/ao_lisp_rep.c
index d26d270c..a1f9fa1f 100644
--- 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)