compiler.tree.propagation.transforms: fix rem and mod custom inlining

diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor
index 5c3d62477dbd4fc1e2d3ed5177f3e65dcb4faccf..02fef3967548eaa9e1a021fa5b1a60d90aaa8f61 100644 (file)
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@@ -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 ;