compiler.tree.propagation.transforms: sigh.

diff --git a/basis/compiler/tree/propagation/transforms/transforms.factor b/basis/compiler/tree/propagation/transforms/transforms.factor
index 7028cb851ac254b6f2125aae5310b3e02fb95fb0..ba6c4dc64b1bce4221b4e1ba5c0c56fc7b8c3867 100644 (file)
--- a/basis/compiler/tree/propagation/transforms/transforms.factor
+++ b/basis/compiler/tree/propagation/transforms/transforms.factor
@@ -81,7 +81,7 @@ IN: compiler.tree.propagation.transforms
             }
             {
                 [ 2dup swap zero-bitand? ]
-                [ drop class>> bignum = 0 >bignum 0 ? [ 2drop _ ] ]
+                [ drop class>> bignum = 0 >bignum 0 ? '[ 2drop _ ] ]
             }
             {
                 [ 2dup redundant-bitand? ]