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

2013-11-25 12:58:21 -08:00 · 2013-11-25 12:58:21 -08:00 · 97530d86d4
parent 9bb5e34762
commit 97530d86d4
1 changed files with 2 additions and 2 deletions
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@ -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 ;