From 73831283b6ecfa6c5fc36fd953ec03308d6a4ec2 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 27 Nov 2013 13:51:24 +0900
Subject: [PATCH] cleanup

---
 src/macro.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/macro.c b/src/macro.c
index 46357ed2..175eeca5 100644
--- 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);