Merge pull request #279 from omasanori/rename-inits

Rename initialize funtions of SRFIs to srfi_<n>.
2015-06-29 20:30:22 +09:00 · 2015-06-29 20:30:22 +09:00 · c1478400cd
parent 428e006098 7685b84ad6
commit c1478400cd
3 changed files with 5 additions and 3 deletions
--- a/contrib/40.srfi/nitro.mk
+++ b/contrib/40.srfi/nitro.mk
@ -1,4 +1,6 @@
-CONTRIB_INITS += features socket
+CONTRIB_INITS += \
+	srfi_0 \
+	srfi_106
 CONTRIB_LIBS += \
 	contrib/40.srfi/srfi/0.scm\
 	contrib/40.srfi/srfi/1.scm\
--- a/contrib/40.srfi/src/0.c
+++ b/contrib/40.srfi/src/0.c
@ -1,7 +1,7 @@
 #include "picrin.h"

 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-1");
--- a/contrib/40.srfi/src/106.c
+++ b/contrib/40.srfi/src/106.c
@ -397,7 +397,7 @@ pic_socket_call_with_socket(pic_state *pic)
 }

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