From 25378e38136cec52f546686a3bd7c73014833223 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Fri, 6 Dec 2013 07:51:32 -0800
Subject: [PATCH] cosmetic changes

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

diff --git a/src/macro.c b/src/macro.c
index 8048f4fe..213b759a 100644
--- a/src/macro.c
+++ b/src/macro.c
@@ -156,13 +156,16 @@ pic_identifier_p(pic_value obj)
 static void
 pic_defsyntax(pic_state *pic, const char *name, struct pic_proc *macro, struct pic_senv *mac_env)
 {
+  struct pic_syntax *stx;
   int idx;
 
+  stx = pic_syntax_new_macro(pic, pic_intern_cstr(pic, name), macro, mac_env);
+
   idx = pic->global_senv->xlen;
   if (idx >= pic->global_senv->xcapa) {
     pic_abort(pic, "macro table overflow");
   }
-  pic->global_senv->stx[idx] = pic_syntax_new_macro(pic, pic_intern_cstr(pic, name), macro, mac_env);
+  pic->global_senv->stx[idx] = stx;
   xh_put(pic->global_senv->tbl, name, ~idx);
   pic->global_senv->xlen++;
 }