compiler.tree.propagation.transforms: rename to non-negative-fixnum?.
parent
9bb5e34762
commit
97530d86d4
basis/compiler/tree/propagation/transforms
|
@ -45,11 +45,11 @@ IN: compiler.tree.propagation.transforms
|
|||
in-d>> rem-custom-inlining
|
||||
] "custom-inlining" set-word-prop
|
||||
|
||||
: positive-fixnum? ( obj -- ? )
|
||||
: non-negative-fixnum? ( obj -- ? )
|
||||
{ [ fixnum? ] [ 0 >= ] } 1&& ;
|
||||
|
||||
: simplify-bitand? ( value1 value2 -- ? )
|
||||
[ literal>> positive-fixnum? ]
|
||||
[ literal>> non-negative-fixnum? ]
|
||||
[ class>> fixnum swap class<= ]
|
||||
bi* and ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue