steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/tree/propagation/transforms/transforms.factor
View File

@ -24,7 +24,7 @@ IN: compiler.tree.propagation.transforms
] "custom-inlining" set-word-prop ] "custom-inlining" set-word-prop
: rem-custom-inlining ( inputs -- quot/f ) : 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? second value-info literal>> dup integer?
[ power-of-2? [ 1 - bitand ] f ? ] [ drop f ] if [ power-of-2? [ 1 - bitand ] f ? ] [ drop f ] if
] [ drop f ] if ; ] [ drop f ] if ;