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 static bool
is_quote(pic_state *pic, pic_value pair) is_quote(pic_state *pic, pic_value pair)
{ {
return pic_list_p(pic, pair) return pic_nil_p(pic_cddr(pic, pair))
&& pic_length(pic, pair) == 2
&& pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sQUOTE)); && pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sQUOTE));
} }
static bool static bool
is_unquote(pic_state *pic, pic_value pair) is_unquote(pic_state *pic, pic_value pair)
{ {
return pic_list_p(pic, pair) return pic_nil_p(pic_cddr(pic, pair))
&& pic_length(pic, pair) == 2
&& pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sUNQUOTE)); && pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sUNQUOTE));
} }
static bool static bool
is_unquote_splicing(pic_state *pic, pic_value pair) is_unquote_splicing(pic_state *pic, pic_value pair)
{ {
return pic_list_p(pic, pair) return pic_nil_p(pic_cddr(pic, pair))
&& pic_length(pic, pair) == 2
&& pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sUNQUOTE_SPLICING)); && pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sUNQUOTE_SPLICING));
} }
static bool static bool
is_quasiquote(pic_state *pic, pic_value pair) is_quasiquote(pic_state *pic, pic_value pair)
{ {
return pic_list_p(pic, pair) return pic_nil_p(pic_cddr(pic, pair))
&& pic_length(pic, pair) == 2
&& pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sQUASIQUOTE)); && pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sQUASIQUOTE));
} }