From 64cdd5f152c11e610c7db5bb26533bdce8876962 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Thu, 13 Feb 2014 15:01:01 +0900
Subject: [PATCH] cleanup

---
 src/macro.c  | 2 +-
 src/symbol.c | 2 --
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/macro.c b/src/macro.c
index 422b07b2..db21e472 100644
--- a/src/macro.c
+++ b/src/macro.c
@@ -159,7 +159,7 @@ pic_defmacro(pic_state *pic, const char *name, struct pic_proc *macro)
   xh_put_int(pic->macros, uniq, (long)mac);
 
   /* auto export! */
-  pic_export(pic, pic_intern_cstr(pic, name));
+  pic_export(pic, sym);
 }
 
 static pic_sym
diff --git a/src/symbol.c b/src/symbol.c
index 07c67b42..0012672e 100644
--- a/src/symbol.c
+++ b/src/symbol.c
@@ -48,8 +48,6 @@ pic_gensym(pic_state *pic, pic_sym base)
 bool
 pic_interned_p(pic_state *pic, pic_sym sym)
 {
-  assert(sym >= 0);
-
   return sym == pic_intern_cstr(pic, pic_symbol_name(pic, sym));
 }