remove library-name

This commit is contained in:
Yuichi Nishiwaki 2015-06-19 03:31:24 +09:00
parent 4bc765da65
commit cf037f27db
2 changed files with 0 additions and 14 deletions

View File

@ -168,18 +168,6 @@ pic_lib_library_export(pic_state *pic)
return pic_undef_value(); 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 static pic_value
pic_lib_library_exports(pic_state *pic) 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, "make-library", pic_lib_make_library);
pic_defun(pic, "find-library", pic_lib_find_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-exports", pic_lib_library_exports);
pic_defun(pic, "library-environment", pic_lib_library_environment); pic_defun(pic, "library-environment", pic_lib_library_environment);

View File

@ -255,7 +255,6 @@
(export make-library (export make-library
find-library find-library
current-library current-library
library-name
library-exports library-exports
library-environment) library-environment)