From 3a0ffceed9d01c916b2b9029fc3db5c08f6f5b12 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 10 Oct 2011 12:12:53 -0700 Subject: [PATCH] compiler.tree.propagation.transforms: fix rem and mod custom inlining --- basis/compiler/tree/propagation/transforms/transforms.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor index 5c3d62477d..02fef39675 100644 --- 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 ;