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

diff --git a/basis/math/bits/bits-tests.factor b/basis/math/bits/bits-tests.factor
index c8d038acc5217a9223c7d0628aa7fce6f9b9b391..160c040cc1dab4d0b78067936b3596106c22df82 100644 (file)
--- a/basis/math/bits/bits-tests.factor
+++ b/basis/math/bits/bits-tests.factor
@@ -8,9 +8,9 @@ USING: tools.test math math.bits sequences arrays ;
 { { f f t } } [ 0b111100 3 <bits> >array ] unit-test
 { 3 } [ 0b111111 3 <bits> length ] unit-test
 { 6 } [ 0b111111 make-bits length ] unit-test
-{ 0 } [ 0 make-bits length ] unit-test
-{ 2 } [ 3 make-bits length ] unit-test
+{ 1 } [ 0 make-bits length ] unit-test
 { 1 } [ 1 make-bits length ] unit-test
+{ 2 } [ 3 make-bits length ] unit-test
 [ -3 make-bits length ] [ non-negative-integer-expected? ] must-fail-with
 
 ! Odd bug

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