cleanup

2013-11-27 13:51:24 +09:00 · 2013-11-27 13:51:24 +09:00 · 73831283b6
parent c1788d31b0
commit 73831283b6
1 changed files with 4 additions and 1 deletions
--- a/src/macro.c
+++ b/src/macro.c
@ -252,7 +252,10 @@ macroexpand_list(pic_state *pic, pic_value list, struct pic_senv *senv)
 {
  pic_value v;

-  if (! pic_pair_p(list))
+  if (pic_nil_p(list))
+    return pic_nil_value();
+
+  if (pic_symbol_p(list))
    return macroexpand(pic, list, senv);

  v = macroexpand(pic, pic_car(pic, list), senv);