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

cosmetic changes

This commit is contained in:
Yuichi Nishiwaki 2014-04-12 08:24:53 +09:00
parent 183935a31e
commit 1ff408b59b
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/init.c
View File

@ -38,21 +38,21 @@ pic_init_contrib(pic_state *pic)
PIC_CONTRIB_INITS PIC_CONTRIB_INITS
} }
#define PUSH_SYM(pic, lst, name) \ #define push_sym(pic, name, list) \
lst = pic_cons(pic, pic_symbol_value(pic_intern_cstr(pic, name)), lst) pic_push(pic, pic_symbol_value(pic_intern_cstr(pic, name)), list)
static pic_value static pic_value
pic_features(pic_state *pic) pic_features(pic_state *pic)
{ {
pic_value fs = pic_nil_value(); pic_value features = pic_nil_value();
pic_get_args(pic, ""); pic_get_args(pic, "");
PUSH_SYM(pic, fs, "r7rs"); push_sym(pic, "r7rs", features);
PUSH_SYM(pic, fs, "ieee-float"); push_sym(pic, "ieee-float", features);
PUSH_SYM(pic, fs, "picrin"); push_sym(pic, "picrin", features);
return fs; return features;
} }
#define DONE pic_gc_arena_restore(pic, ai); #define DONE pic_gc_arena_restore(pic, ai);