print raw read expression in repl
This commit is contained in:
parent
78303a72e5
commit
099d40cfb8
|
@ -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());
|
||||||
|
|
Loading…
Reference in New Issue