From e021ac52ac7c4738c495f0853c19728ae7999f9c Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Tue, 10 Dec 2013 00:22:34 -0800 Subject: [PATCH] =?UTF-8?q?identifier=3D=3F=20dons=20not=20necessarily=20t?= =?UTF-8?q?ake=20identifiers?= --- src/macro.c | 6 ------ 1 file changed, 6 deletions(-) diff --git a/src/macro.c b/src/macro.c index 317c86f5..80d19587 100644 --- a/src/macro.c +++ b/src/macro.c @@ -625,16 +625,10 @@ pic_macro_identifier_eq_p(pic_state *pic) pic_error(pic, "unexpected type of argument 1"); } e1 = pic_senv(e); - if (! pic_identifier_p(x)) { - pic_error(pic, "unexpected type of argument 2"); - } if (! pic_senv_p(f)) { pic_error(pic, "unexpected type of argument 3"); } e2 = pic_senv(f); - if (! pic_identifier_p(y)) { - pic_error(pic, "unexpected type of argument 4"); - } x = macroexpand(pic, x, e1); y = macroexpand(pic, y, e2);