From 39b28fa674879687079b6a6727ae1b5e2cbb2367 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Mon, 9 Dec 2013 09:09:24 -0800
Subject: [PATCH] debug print might cause segv

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

diff --git a/src/macro.c b/src/macro.c
index 01d6348b..12ee932b 100644
--- a/src/macro.c
+++ b/src/macro.c
@@ -286,7 +286,12 @@ macroexpand(pic_state *pic, pic_value expr, struct pic_senv *senv)
         it = xh_begin(lib->exports);
         while (! xh_isend(&it)) {
 #if DEBUG
-          printf("* importing %s as %s\n", it.e->key, pic_symbol_name(pic, (pic_sym)it.e->val));
+          if (it.e->val >= 0) {
+            printf("* importing %s as %s\n", it.e->key, pic_symbol_name(pic, (pic_sym)it.e->val));
+          }
+          else {
+            printf("* importing %s\n", it.e->key);
+          }
 #endif
           if (it.e->val >= 0) {
             xh_put(pic->lib->senv->tbl, it.e->key, it.e->val);