math.bits: make zero encode as one false bit.

[factor.git] / basis / math / bits / bits.factor

diff --git a/basis/math/bits/bits.factor b/basis/math/bits/bits.factor
index 4b94a3c73377ae9f742405579c40262f858a5869..9f345986aa6972e6328894472c11167c581f8055 100644 (file)
--- a/basis/math/bits/bits.factor
+++ b/basis/math/bits/bits.factor
@@ -11,7 +11,7 @@ C: <bits> bits
 
 : make-bits ( number -- bits )
     check-negative-bits
-    [ T{ bits f 0 0 } ] [ dup abs log2 1 + <bits> ] if-zero ; inline
+    [ T{ bits f 0 1 } ] [ dup abs log2 1 + <bits> ] if-zero ; inline
 
 M: bits length length>> ; inline