print raw read expression in repl

This commit is contained in:
Yuichi Nishiwaki 2013-10-15 09:08:10 +09:00
parent 78303a72e5
commit 099d40cfb8
1 changed files with 6 additions and 0 deletions

View File

@ -58,6 +58,12 @@ main()
/* read */ /* read */
v = pic_parse(pic, line); v = pic_parse(pic, line);
#if DEBUG
printf("[read: ");
pic_debug(pic, v);
printf("]\n");
#endif
/* eval */ /* eval */
proc = pic_codegen(pic, v, pic->global_env); proc = pic_codegen(pic, v, pic->global_env);
v = pic_run(pic, proc, pic_nil_value()); v = pic_run(pic, proc, pic_nil_value());