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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
include/picrin/pair.h
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); \ pic_nil_p(tmp) ? false : ((var = pic_car(pic, tmp)), true); \
tmp = pic_cdr(pic, tmp)) 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); int pic_length(pic_state *, pic_value);
pic_value pic_reverse(pic_state *, pic_value); pic_value pic_reverse(pic_state *, pic_value);
pic_value pic_append(pic_state *, pic_value, pic_value); pic_value pic_append(pic_state *, pic_value, pic_value);

2
src/codegen.c
View File

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