compiler.tree.propagation.transforms: fix rem and mod custom inlining
							parent
							
								
									7a4ab74703
								
							
						
					
					
						commit
						3a0ffceed9
					
				| 
						 | 
				
			
			@ -24,7 +24,7 @@ IN: compiler.tree.propagation.transforms
 | 
			
		|||
] "custom-inlining" set-word-prop
 | 
			
		||||
 | 
			
		||||
: rem-custom-inlining ( inputs -- quot/f )
 | 
			
		||||
    dup first value-info class integer class<= [
 | 
			
		||||
    dup first value-info class>> integer class<= [
 | 
			
		||||
        second value-info literal>> dup integer?
 | 
			
		||||
        [ power-of-2? [ 1 - bitand ] f ? ] [ drop f ] if
 | 
			
		||||
    ] [ drop f ] if ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue