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

macroexpand_list supports improper list

This commit is contained in:
Yuichi Nishiwaki 2013-11-26 09:07:57 -08:00
parent 43d449d2aa
commit 2dee30a0b5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/macro.c
View File

@ -242,8 +242,8 @@ macroexpand_list(pic_state *pic, pic_value list, struct pic_senv *senv)
{ {
pic_value v; pic_value v;
if (pic_nil_p(list)) if (! pic_pair_p(list))
return list; return macroexpand(pic, list, senv);
v = macroexpand(pic, pic_car(pic, list), senv); v = macroexpand(pic, pic_car(pic, list), senv);
return pic_cons(pic, v, macroexpand_list(pic, pic_cdr(pic, list), senv)); return pic_cons(pic, v, macroexpand_list(pic, pic_cdr(pic, list), senv));