compiler.tree.propagation.transforms: rename to non-negative-fixnum?.

db4
John Benediktsson 2013-11-25 12:58:21 -08:00
parent 9bb5e34762
commit 97530d86d4
1 changed files with 2 additions and 2 deletions
basis/compiler/tree/propagation/transforms

View File

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