Implement SRFI 0.

Reference: http://srfi.schemers.org/srfi-0/

Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
This commit is contained in:
OGINO Masanori 2015-06-26 15:07:24 +09:00
parent a6ec857f98
commit 555048c146
3 changed files with 24 additions and 2 deletions

View File

@ -1,5 +1,6 @@
CONTRIB_INITS += socket
CONTRIB_INITS += features socket
CONTRIB_LIBS += \
contrib/40.srfi/srfi/0.scm\
contrib/40.srfi/srfi/1.scm\
contrib/40.srfi/srfi/8.scm\
contrib/40.srfi/srfi/17.scm\
@ -9,7 +10,9 @@ CONTRIB_LIBS += \
contrib/40.srfi/srfi/95.scm\
contrib/40.srfi/srfi/106.scm\
contrib/40.srfi/srfi/111.scm
CONTRIB_SRCS += contrib/40.srfi/src/106.c
CONTRIB_SRCS += \
contrib/40.srfi/src/0.c\
contrib/40.srfi/src/106.c
CONTRIB_TESTS += test-srfi
test-srfi: bin/picrin

16
contrib/40.srfi/src/0.c Normal file
View File

@ -0,0 +1,16 @@
#include "picrin.h"
void
pic_init_features(pic_state *pic)
{
pic_add_feature(pic, "srfi-0");
pic_add_feature(pic, "srfi-1");
pic_add_feature(pic, "srfi-8");
pic_add_feature(pic, "srfi-17");
pic_add_feature(pic, "srfi-26");
pic_add_feature(pic, "srfi-43");
pic_add_feature(pic, "srfi-60");
pic_add_feature(pic, "srfi-95");
pic_add_feature(pic, "srfi-106");
pic_add_feature(pic, "srfi-111");
}

View File

@ -0,0 +1,3 @@
(define-library (srfi 0)
(import (scheme base))
(export cond-expand))