From d973f41d84fdde07c21b2b3541b11ae418c725bb Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 9 Nov 2013 14:11:19 +0900
Subject: [PATCH] values of some compound types can reach to expanstion phase

---
 src/expand.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/expand.c b/src/expand.c
index 91a4e181..24cdaac0 100644
--- a/src/expand.c
+++ b/src/expand.c
@@ -142,8 +142,8 @@ expand(pic_state *pic, pic_value obj, struct syntactic_env *env)
   case PIC_TT_PORT:
   case PIC_TT_ENV:
   case PIC_TT_UNDEF:
-    pic_error(pic, "logic flaw");
-    abort();			/* unreachable */
+    pic_error(pic, "unexpected value type");
+    return pic_undef_value();	/* unreachable */
   }
 }