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

refactor tagged expression checker

This commit is contained in:
Yuichi Nishiwaki 2014-02-18 03:42:33 +09:00
parent cd34417c42
commit b4166dde71
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/write.c
View File

@ -9,35 +9,35 @@
#include "picrin/macro.h" #include "picrin/macro.h"
static bool static bool
is_quote(pic_state *pic, pic_value pair) is_tagged(pic_state *pic, pic_sym tag, pic_value pair)
{ {
return pic_pair_p(pic_cdr(pic, pair)) return pic_pair_p(pic_cdr(pic, pair))
&& pic_nil_p(pic_cddr(pic, pair)) && pic_nil_p(pic_cddr(pic, pair))
&& pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sQUOTE)); && pic_eq_p(pic_car(pic, pair), pic_symbol_value(tag));
}
static bool
is_quote(pic_state *pic, pic_value pair)
{
return is_tagged(pic, pic->sQUOTE, pair);
} }
static bool static bool
is_unquote(pic_state *pic, pic_value pair) is_unquote(pic_state *pic, pic_value pair)
{ {
return pic_pair_p(pic_cdr(pic, pair)) return is_tagged(pic, pic->sUNQUOTE, pair);
&& pic_nil_p(pic_cddr(pic, pair))
&& 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_pair_p(pic_cdr(pic, pair)) return is_tagged(pic, pic->sUNQUOTE_SPLICING, pair);
&& pic_nil_p(pic_cddr(pic, pair))
&& 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_pair_p(pic_cdr(pic, pair)) return is_tagged(pic, pic->sQUASIQUOTE, pair);
&& pic_nil_p(pic_cddr(pic, pair))
&& pic_eq_p(pic_car(pic, pair), pic_symbol_value(pic->sQUASIQUOTE));
} }
struct writer_control { struct writer_control {