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

[bugfix] is_quote family don't stop when circular object is given

This commit is contained in:
Yuichi Nishiwaki 2014-02-17 23:07:46 +09:00
parent 3a8aa3e728
commit ceef33af8a
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/write.c
View File

@ -13,32 +13,28 @@ static void write(pic_state *, pic_value, XFILE *file);
static bool
is_quote(pic_state *pic, pic_value pair)
{
return pic_list_p(pic, pair)
&& pic_length(pic, pair) == 2
return 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_list_p(pic, pair)
&& pic_length(pic, pair) == 2
return 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_list_p(pic, pair)
&& pic_length(pic, pair) == 2
return 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_list_p(pic, pair)
&& pic_length(pic, pair) == 2
return pic_nil_p(pic_cddr(pic, pair))
&& pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sQUASIQUOTE));
}