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

identifier=? dons not necessarily take identifiers

This commit is contained in:
Yuichi Nishiwaki 2013-12-10 00:22:34 -08:00
parent 7520de3dcd
commit e021ac52ac
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/macro.c
View File

@ -625,16 +625,10 @@ pic_macro_identifier_eq_p(pic_state *pic)
pic_error(pic, "unexpected type of argument 1"); pic_error(pic, "unexpected type of argument 1");
} }
e1 = pic_senv(e); e1 = pic_senv(e);
if (! pic_identifier_p(x)) {
pic_error(pic, "unexpected type of argument 2");
}
if (! pic_senv_p(f)) { if (! pic_senv_p(f)) {
pic_error(pic, "unexpected type of argument 3"); pic_error(pic, "unexpected type of argument 3");
} }
e2 = pic_senv(f); e2 = pic_senv(f);
if (! pic_identifier_p(y)) {
pic_error(pic, "unexpected type of argument 4");
}
x = macroexpand(pic, x, e1); x = macroexpand(pic, x, e1);
y = macroexpand(pic, y, e2); y = macroexpand(pic, y, e2);