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

macroexpand_list supports any kind of improper list

This commit is contained in:
Yuichi Nishiwaki 2013-12-03 13:07:25 +09:00
parent 00514dcd15
commit 761deffe1f
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/macro.c
View File

@ -386,10 +386,7 @@ 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 pic_nil_value();
if (pic_symbol_p(list))
return macroexpand(pic, list, senv); return macroexpand(pic, list, senv);
v = macroexpand(pic, pic_car(pic, list), senv); v = macroexpand(pic, pic_car(pic, list), senv);