cosmetic changes
This commit is contained in:
parent
183935a31e
commit
1ff408b59b
14
src/init.c
14
src/init.c
|
@ -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);
|
||||||
|
|
Loading…
Reference in New Issue