compiler.tree.propagation.transforms: maybe better code for zero bignum case.

diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor
index a7c1e2861e288d7fb2ed73b38ef592b0a35492fb..7028cb851ac254b6f2125aae5310b3e02fb95fb0 100644 (file)
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@@ -77,11 +77,11 @@ IN: compiler.tree.propagation.transforms
         in-d>> first2 [ value-info ] bi@ {
             {
                 [ 2dup zero-bitand? ]
-                [ nip class>> bignum = [ 2drop 0 >bignum ] [ 2drop 0 ] ? ]
+                [ nip class>> bignum = 0 >bignum 0 ? '[ 2drop _ ] ]
             }
             {
                 [ 2dup swap zero-bitand? ]
-                [ drop class>> bignum = [ 2drop 0 >bignum ] [ 2drop 0 ] ? ]
+                [ drop class>> bignum = 0 >bignum 0 ? [ 2drop _ ] ]
             }
             {
                 [ 2dup redundant-bitand? ]