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

View File

@ -386,10 +386,7 @@ macroexpand_list(pic_state *pic, pic_value list, struct pic_senv *senv)
{
pic_value v;
if (pic_nil_p(list))
return pic_nil_value();
if (pic_symbol_p(list))
if (! pic_pair_p(list))
return macroexpand(pic, list, senv);
v = macroexpand(pic, pic_car(pic, list), senv);