From 099d40cfb889fcf6a073394e20365dc2a951ae00 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 15 Oct 2013 09:08:10 +0900
Subject: [PATCH] print raw read expression in repl

---
 src/main.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/main.c b/src/main.c
index c21546ee..ae749982 100644
--- a/src/main.c
+++ b/src/main.c
@@ -58,6 +58,12 @@ main()
     /* read */
     v = pic_parse(pic, line);
 
+#if DEBUG
+    printf("[read: ");
+    pic_debug(pic, v);
+    printf("]\n");
+#endif
+
     /* eval */
     proc = pic_codegen(pic, v, pic->global_env);
     v = pic_run(pic, proc, pic_nil_value());