Implement SRFI 0.
Reference: http://srfi.schemers.org/srfi-0/ Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
This commit is contained in:
parent
a6ec857f98
commit
555048c146
|
@ -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
|
||||
|
|
|
@ -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");
|
||||
}
|
|
@ -0,0 +1,3 @@
|
|||
(define-library (srfi 0)
|
||||
(import (scheme base))
|
||||
(export cond-expand))
|
Loading…
Reference in New Issue