From cf037f27dbe0aee6dca12fbdef9a91ffc4dbc4a4 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Fri, 19 Jun 2015 03:31:24 +0900
Subject: [PATCH] remove library-name

---
 extlib/benz/lib.c      | 13 -------------
 piclib/picrin/base.scm |  1 -
 2 files changed, 14 deletions(-)

diff --git a/extlib/benz/lib.c b/extlib/benz/lib.c
index 7ffa66fe..227eea7f 100644
--- a/extlib/benz/lib.c
+++ b/extlib/benz/lib.c
@@ -168,18 +168,6 @@ pic_lib_library_export(pic_state *pic)
   return pic_undef_value();
 }
 
-static pic_value
-pic_lib_library_name(pic_state *pic)
-{
-  pic_value lib;
-
-  pic_get_args(pic, "o", &lib);
-
-  pic_assert_type(pic, lib, lib);
-
-  return pic_lib_ptr(lib)->name;
-}
-
 static pic_value
 pic_lib_library_exports(pic_state *pic)
 {
@@ -215,7 +203,6 @@ pic_init_lib(pic_state *pic)
 {
   pic_defun(pic, "make-library", pic_lib_make_library);
   pic_defun(pic, "find-library", pic_lib_find_library);
-  pic_defun(pic, "library-name", pic_lib_library_name);
   pic_defun(pic, "library-exports", pic_lib_library_exports);
   pic_defun(pic, "library-environment", pic_lib_library_environment);
 
diff --git a/piclib/picrin/base.scm b/piclib/picrin/base.scm
index a9d6d7fa..f0d988a5 100644
--- a/piclib/picrin/base.scm
+++ b/piclib/picrin/base.scm
@@ -255,7 +255,6 @@
   (export make-library
           find-library
           current-library
-          library-name
           library-exports
           library-environment)