conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove libraries procedure

This commit is contained in:
Yuichi Nishiwaki 2016-02-18 16:29:13 +09:00
parent 8610f5090d
commit 95740b86a0
2 changed files with 4 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/20.r7rs/src/r7rs.c
View File

@ -18,4 +18,6 @@ pic_init_r7rs(pic_state *pic)
pic_init_mutable_string(pic); pic_init_mutable_string(pic);
pic_init_system(pic); pic_init_system(pic);
pic_init_time(pic); pic_init_time(pic);
pic_add_feature(pic, "r7rs");
} }

23
src/main.c
View File

@ -4,30 +4,11 @@
#include "picrin.h" #include "picrin.h"
void pic_init_contrib(pic_state *);
void pic_load_piclib(pic_state *);
static pic_value
pic_libraries(pic_state *pic)
{
pic_value libs = pic_nil_value(), lib, it;
pic_get_args(pic, "");
pic_for_each (lib, pic->libs, it) {
libs = pic_cons(pic, pic_car(pic, lib), libs);
}
return libs;
}
void void
pic_init_picrin(pic_state *pic) pic_init_picrin(pic_state *pic)
{ {
pic_add_feature(pic, "r7rs"); void pic_init_contrib(pic_state *);
void pic_load_piclib(pic_state *);
pic_deflibrary(pic, "(picrin library)");
pic_defun(pic, "libraries", pic_libraries);
pic_init_contrib(pic); pic_init_contrib(pic);
pic_load_piclib(pic); pic_load_piclib(pic);