From d134a38c57429070ee5d4f74dafca4489e4b1443 Mon Sep 17 00:00:00 2001
From: Keith Packard <keithp@keithp.com>
Date: Wed, 2 Nov 2016 14:18:54 -0700
Subject: altos/lisp: add set/setq and ' in reader

Along with other small fixes

Signed-off-by: Keith Packard <keithp@keithp.com>
---
 src/lisp/ao_lisp_rep.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/lisp/ao_lisp_rep.c')

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)
-- 
cgit v1.2.3