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

fix segv in is_quote etc

This commit is contained in:
Yuichi Nishiwaki 2014-02-18 03:38:12 +09:00
parent c3d221f2da
commit 7358e0933c
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/write.c
View File

@ -13,28 +13,32 @@ static void write(pic_state *, pic_value, XFILE *file);
static bool
is_quote(pic_state *pic, pic_value pair)
{
return pic_nil_p(pic_cddr(pic, pair))
return pic_pair_p(pic_cdr(pic, pair))
&& pic_nil_p(pic_cddr(pic, pair))
&& pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sQUOTE));
}
static bool
is_unquote(pic_state *pic, pic_value pair)
{
return pic_nil_p(pic_cddr(pic, pair))
return pic_pair_p(pic_cdr(pic, pair))
&& pic_nil_p(pic_cddr(pic, pair))
&& pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sUNQUOTE));
}
static bool
is_unquote_splicing(pic_state *pic, pic_value pair)
{
return pic_nil_p(pic_cddr(pic, pair))
return pic_pair_p(pic_cdr(pic, pair))
&& pic_nil_p(pic_cddr(pic, pair))
&& pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sUNQUOTE_SPLICING));
}
static bool
is_quasiquote(pic_state *pic, pic_value pair)
{
return pic_nil_p(pic_cddr(pic, pair))
return pic_pair_p(pic_cdr(pic, pair))
&& pic_nil_p(pic_cddr(pic, pair))
&& pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sQUASIQUOTE));
}