conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add another debug print

This commit is contained in:
Yuichi Nishiwaki 2014-02-12 22:30:46 +09:00
parent edc91bd588
commit 234c573bb6
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/macro.c
View File

@ -442,6 +442,12 @@ macroexpand(pic_state *pic, pic_value expr, struct pic_senv *senv)
pic_value v; pic_value v;
struct pic_macro *mac; struct pic_macro *mac;
#if DEBUG
puts("before expand-1:");
pic_debug(pic, expr);
puts("");
#endif
mac = (struct pic_macro *)e->val; mac = (struct pic_macro *)e->val;
if (mac->senv == NULL) { /* legacy macro */ if (mac->senv == NULL) { /* legacy macro */
v = pic_apply(pic, mac->proc, pic_cdr(pic, expr)); v = pic_apply(pic, mac->proc, pic_cdr(pic, expr));