cosmetic fixes
This commit is contained in:
parent
c759fee566
commit
a18fe136e1
|
@ -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();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue