From 0b5862486497753ee5b01073f8a39fc5f4415f28 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 29 Mar 2014 09:00:37 +0900
Subject: [PATCH] no need to handle set!/if/begin syntaces at macroexpansion
 stage

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

diff --git a/src/macro.c b/src/macro.c
index 7f10d25d..a0f5721c 100644
--- a/src/macro.c
+++ b/src/macro.c
@@ -445,10 +445,6 @@ macroexpand_node(pic_state *pic, pic_value expr, struct pic_senv *senv)
 	return pic_cons(pic, pic_symbol_value(tag), macroexpand_list(pic, pic_cdr(pic, expr), senv));
       }
 
-      else if (tag == pic->sSETBANG || tag == pic->sIF || tag == pic->sBEGIN) {
-	return pic_cons(pic, car, macroexpand_list(pic, pic_cdr(pic, expr), senv));
-      }
-
       else if (tag == pic->sQUOTE) {
 	return pic_cons(pic, car, pic_cdr(pic, expr));
       }