identifier=? dons not necessarily take identifiers
This commit is contained in:
		
							parent
							
								
									7520de3dcd
								
							
						
					
					
						commit
						e021ac52ac
					
				|  | @ -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); | ||||
|  |  | |||
		Loading…
	
		Reference in New Issue
	
	 Yuichi Nishiwaki
						Yuichi Nishiwaki