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

add identifier_eq_p

This commit is contained in:
Yuichi Nishiwaki 2014-02-12 10:57:58 +09:00
parent 93a259870c
commit 25ae2ef6b0
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/macro.c
View File

@ -94,6 +94,19 @@ identifier_p(pic_value obj)
return false; return false;
} }
static bool
identifier_eq_p(pic_state *pic, struct pic_senv *e1, pic_value x, struct pic_senv *e2, pic_value y)
{
if (! (identifier_p(x) && identifier_p(y))) {
return false;
}
x = macroexpand(pic, x, e1);
y = macroexpand(pic, y, e2);
return pic_eq_p(x, y);
}
void void
pic_import(pic_state *pic, pic_value spec) pic_import(pic_state *pic, pic_value spec)
{ {
@ -634,14 +647,7 @@ pic_macro_identifier_eq_p(pic_state *pic)
} }
e2 = pic_senv(f); e2 = pic_senv(f);
if (! (identifier_p(x) && identifier_p(y))) { return pic_bool_value(identifier_eq_p(pic, e1, x, e2, y));
return pic_false_value();
}
x = macroexpand(pic, x, e1);
y = macroexpand(pic, y, e2);
return pic_bool_value(pic_eq_p(x, y));
} }
static pic_value static pic_value