7 lines
		
	
	
		
			220 B
		
	
	
	
		
			Factor
		
	
	
		
		
			
		
	
	
			7 lines
		
	
	
		
			220 B
		
	
	
	
		
			Factor
		
	
	
| 
								 | 
							
								IN: compiler.tree.combinators.tests
							 | 
						||
| 
								 | 
							
								USING: compiler.tree.combinators tools.test kernel ;
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								{ 1 0 } [ [ drop ] each-node ] must-infer-as
							 | 
						||
| 
								 | 
							
								{ 1 1 } [ [ ] map-nodes ] must-infer-as
							 | 
						||
| 
								 | 
							
								{ 1 1 } [ [ ] contains-node? ] must-infer-as
							 |