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

cosmetic fixes

This commit is contained in:
Yuichi Nishiwaki 2014-02-12 10:50:26 +09:00
parent c759fee566
commit a18fe136e1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/macro.c
View File

@ -95,13 +95,13 @@ sc_new(pic_state *pic, pic_value expr, struct pic_senv *senv)
} }
static bool static bool
pic_identifier_p(pic_value obj) identifier_p(pic_value obj)
{ {
if (pic_sym_p(obj)) { if (pic_sym_p(obj)) {
return true; return true;
} }
if (pic_sc_p(obj)) { if (pic_sc_p(obj)) {
return pic_identifier_p(pic_sc(obj)->expr); return identifier_p(pic_sc(obj)->expr);
} }
return false; return false;
} }
@ -626,7 +626,7 @@ pic_macro_identifier_p(pic_state *pic)
pic_get_args(pic, "o", &obj); pic_get_args(pic, "o", &obj);
return pic_bool_value(pic_identifier_p(obj)); return pic_bool_value(identifier_p(obj));
} }
static pic_value static pic_value
@ -646,7 +646,7 @@ pic_macro_identifier_eq_p(pic_state *pic)
} }
e2 = pic_senv(f); e2 = pic_senv(f);
if (! (pic_identifier_p(x) && pic_identifier_p(y))) { if (! (identifier_p(x) && identifier_p(y))) {
return pic_false_value(); return pic_false_value();
} }