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 |