values of some compound types can reach to expanstion phase

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");
+    pic_error(pic, "unexpected value type");
-    abort();			/* unreachable */
+    return pic_undef_value();	/* unreachable */
   }
 }