diff --git a/src/macro.c b/src/macro.c index 413dfbbb..9ceff482 100644 --- a/src/macro.c +++ b/src/macro.c @@ -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);