From 97530d86d48848f6f1c00a32abad6e610d26e9cf Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 25 Nov 2013 12:58:21 -0800 Subject: [PATCH] compiler.tree.propagation.transforms: rename to non-negative-fixnum?. --- basis/compiler/tree/propagation/transforms/transforms.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor index 515c5f52e9..d6f7912f38 100644 --- 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 ;