define pic_push/pic_pop macro in pair.h

This commit is contained in:
Yuichi Nishiwaki 2014-03-21 12:36:46 +09:00
parent a9a530c9bd
commit 9a3ff987af
2 changed files with 3 additions and 2 deletions

View File

@ -39,6 +39,9 @@ pic_value pic_make_list(pic_state *, int, pic_value);
pic_nil_p(tmp) ? false : ((var = pic_car(pic, tmp)), true); \
tmp = pic_cdr(pic, tmp))
#define pic_push(pic, item, place) (place = pic_cons(pic, item, place))
#define pic_pop(pic, place) (place = pic_cdr(pic, place))
int pic_length(pic_state *, pic_value);
pic_value pic_reverse(pic_state *, pic_value);
pic_value pic_append(pic_state *, pic_value, pic_value);

View File

@ -400,8 +400,6 @@ analyze_quote(analyze_state *state, pic_value obj)
return obj;
}
#define pic_push(pic, item, place) (place = pic_cons(pic, item, place))
static pic_value
analyze_lambda(analyze_state *state, pic_value obj)
{