| 
									
										
										
										
											2009-03-23 19:25:18 -04:00
										 |  |  | ! Copyright (C) 2007, 2009 Slava Pestov, Eduardo Cavazos. | 
					
						
							| 
									
										
										
										
											2008-12-06 05:57:38 -05:00
										 |  |  | ! See http://factorcode.org/license.txt for BSD license. | 
					
						
							| 
									
										
										
										
											2009-03-23 19:25:18 -04:00
										 |  |  | USING: accessors assocs kernel locals.types macros.expander fry ;
 | 
					
						
							| 
									
										
										
										
											2008-12-06 05:57:38 -05:00
										 |  |  | IN: locals.macros | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | M: lambda expand-macros clone [ expand-macros ] change-body ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | M: lambda expand-macros* expand-macros literal ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-10-27 15:19:05 -04:00
										 |  |  | M: let expand-macros | 
					
						
							|  |  |  |     clone [ expand-macros ] change-body ;
 | 
					
						
							| 
									
										
										
										
											2008-12-06 05:57:38 -05:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-10-27 15:19:05 -04:00
										 |  |  | M: let expand-macros* expand-macros literal ;
 | 
					
						
							| 
									
										
										
										
											2008-12-06 05:57:38 -05:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-03-23 19:25:18 -04:00
										 |  |  | M: lambda condomize? drop t ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2009-11-07 14:32:08 -05:00
										 |  |  | M: lambda condomize [ call ] curry ;
 |