From 1ff408b59be99e78eee8a26f452122cd95e3dedc Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 12 Apr 2014 08:24:53 +0900 Subject: [PATCH] cosmetic changes --- src/init.c | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/init.c b/src/init.c index 22edcb13..8bbc3229 100644 --- a/src/init.c +++ b/src/init.c @@ -38,21 +38,21 @@ pic_init_contrib(pic_state *pic) PIC_CONTRIB_INITS } -#define PUSH_SYM(pic, lst, name) \ - lst = pic_cons(pic, pic_symbol_value(pic_intern_cstr(pic, name)), lst) +#define push_sym(pic, name, list) \ + pic_push(pic, pic_symbol_value(pic_intern_cstr(pic, name)), list) static pic_value pic_features(pic_state *pic) { - pic_value fs = pic_nil_value(); + pic_value features = pic_nil_value(); pic_get_args(pic, ""); - PUSH_SYM(pic, fs, "r7rs"); - PUSH_SYM(pic, fs, "ieee-float"); - PUSH_SYM(pic, fs, "picrin"); + push_sym(pic, "r7rs", features); + push_sym(pic, "ieee-float", features); + push_sym(pic, "picrin", features); - return fs; + return features; } #define DONE pic_gc_arena_restore(pic, ai);