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

db4
Slava Pestov 2011-10-10 12:12:53 -07:00
parent 7a4ab74703
commit 3a0ffceed9
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;