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

Merge pull request #279 from omasanori/rename-inits 

Rename initialize funtions of SRFIs to srfi_<n>.
This commit is contained in:
Yuichi Nishiwaki 2015-06-29 20:30:22 +09:00
parent 428e006098 7685b84ad6
commit c1478400cd
3 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
contrib/40.srfi/nitro.mk
View File

@ -1,4 +1,6 @@
CONTRIB_INITS += features socket CONTRIB_INITS += \
srfi_0 \
srfi_106
CONTRIB_LIBS += \ CONTRIB_LIBS += \
contrib/40.srfi/srfi/0.scm\ contrib/40.srfi/srfi/0.scm\
contrib/40.srfi/srfi/1.scm\ contrib/40.srfi/srfi/1.scm\

2
contrib/40.srfi/src/0.c
View File

@ -1,7 +1,7 @@
#include "picrin.h" #include "picrin.h"
void void
pic_init_features(pic_state *pic) pic_init_srfi_0(pic_state *pic)
{ {
pic_add_feature(pic, "srfi-0"); pic_add_feature(pic, "srfi-0");
pic_add_feature(pic, "srfi-1"); pic_add_feature(pic, "srfi-1");

2
contrib/40.srfi/src/106.c
View File

@ -397,7 +397,7 @@ pic_socket_call_with_socket(pic_state *pic)
} }
void void
pic_init_socket(pic_state *pic) pic_init_srfi_106(pic_state *pic)
{ {
pic_deflibrary (pic, "(srfi 106)") { pic_deflibrary (pic, "(srfi 106)") {
pic_defun_(pic, "socket?", pic_socket_socket_p); pic_defun_(pic, "socket?", pic_socket_socket_p);