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

cosmetic changes again

This commit is contained in:
Yuichi Nishiwaki 2014-07-13 20:09:42 +09:00
parent 601b54ba1f
commit 6d20c0e3e0
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/macro.c
View File

@ -389,12 +389,15 @@ macroexpand_define(pic_state *pic, pic_value expr, struct pic_senv *senv, struct
static pic_value static pic_value
macroexpand_lambda(pic_state *pic, pic_value expr, struct pic_senv *senv, struct pic_dict *cxt) macroexpand_lambda(pic_state *pic, pic_value expr, struct pic_senv *senv, struct pic_dict *cxt)
{ {
struct pic_senv *in = push_scope(pic, pic_cadr(pic, expr), senv, cxt); pic_value formal, body;
struct pic_senv *in;
return pic_cons(pic, pic_sym_value(pic->sLAMBDA), in = push_scope(pic, pic_cadr(pic, expr), senv, cxt);
pic_cons(pic,
macroexpand_list(pic, pic_cadr(pic, expr), in, cxt), formal = macroexpand_list(pic, pic_cadr(pic, expr), in, cxt);
macroexpand_list(pic, pic_cddr(pic, expr), in, cxt))); body = macroexpand_list(pic, pic_cddr(pic, expr), in, cxt);
return pic_cons(pic, pic_sym_value(pic->sLAMBDA), pic_cons(pic, formal, body));
} }
static pic_value static pic_value