From 9a027dae6e9e717d92ad25cc09d86d347198b76f Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 27 Nov 2013 15:57:23 +0900
Subject: [PATCH] add error guard

---
 src/macro.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/macro.c b/src/macro.c
index 60843841..d9763c79 100644
--- a/src/macro.c
+++ b/src/macro.c
@@ -248,6 +248,9 @@ macroexpand(pic_state *pic, pic_value expr, struct pic_senv *senv)
 	  return v;
 	}
 
+	if (! pic_symbol_p(var)) {
+	  pic_error(pic, "binding to non-symbol object");
+	}
 	uniq = new_uniq_sym(pic, pic_sym(var));
 	xh_put(senv->tbl, pic_symbol_name(pic, pic_sym(var)), (int)uniq);
       }