macroexpand_list supports any kind of improper list
This commit is contained in:
parent
00514dcd15
commit
761deffe1f
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue