From 761deffe1ff25dc008008f169f562db9b5153c0d Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 3 Dec 2013 13:07:25 +0900
Subject: [PATCH] macroexpand_list supports any kind of improper list

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

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);